Changeset 41f1ca3edadee2d6e00ba7dc287ea66d92897ca6

Show
Ignore:
Timestamp:
03/23/12 19:05:24 (2 years ago)
Author:
Raymond Toy <rtoy@…>
Children:
dd5c2a4a6628648c5fe9a7eec98c82a9d284daa3
Parents:
d80256d66d585a69813f277b115d039cc620e62d
git-committer:
Raymond Toy <rtoy@…> (03/23/12 19:05:24)
Message:

Oops. Need to take the realpart before call FLOAT-NAN-P.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r82b854 r41f1ca  
    5555  (let ((bits (bit-accuracy est true))) 
    5656    (if (not (eq bits t)) 
    57         (if (and (not (float-nan-p est)) 
     57        (if (and (not (float-nan-p (realpart est))) 
    5858                 (not (float-nan-p bits)) 
    5959                 (< bits limit))