Commit 41f1ca3edadee2d6e00ba7dc287ea66d92897ca6

Authored by Raymond Toy
1 parent d80256d6

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

Showing 1 changed file with 1 additions and 1 deletions
rt-tests.lisp
... ... @@ -54,7 +54,7 @@
54 54 (defun check-accuracy (limit est true)
55 55 (let ((bits (bit-accuracy est true)))
56 56 (if (not (eq bits t))
57   - (if (and (not (float-nan-p est))
  57 + (if (and (not (float-nan-p (realpart est)))
58 58 (not (float-nan-p bits))
59 59 (< bits limit))
60 60 (list bits limit est true)))))
... ...