Commit 724f3db3 authored by pfdietz's avatar pfdietz

Restrict range of floatable integers

parent 3a15aeff
......@@ -184,7 +184,7 @@
nil)
(deftest sqrt.17
(let ((b1 (find-largest-exactly-floatable-integer (* most-positive-fixnum most-positive-fixnum))))
(let ((b1 (find-largest-exactly-floatable-integer most-positive-fixnum)))
(loop for i = (random-from-interval (* b1 b1) 0)
repeat 1000
unless (>= (sqrt i) (isqrt i))
......
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 to comment