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
... ... @@ -54,7 +54,7 @@
(defun check-accuracy (limit est true)
(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))
(list bits limit est true)))))
... ...