Changeset 41f1ca3edadee2d6e00ba7dc287ea66d92897ca6

Timestamp:

03/23/12 19:05:24 (14 months 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:

• rt-tests.lisp (modified) (1 diff)

rt-tests.lisp

@@ -55 +55 @@
   (let ((bits (bit-accuracy est true)))
     (if (not (eq bits t))
-        (if (and (not (float-nan-p est))
+        (if (and (not (float-nan-p (realpart est)))
                  (not (float-nan-p bits))
                  (< bits limit))