Commit 41f1ca3e by Raymond Toy

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

parent d80256d6
Showing 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)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or sign in to comment