Commit da65aebf authored by pfdietz's avatar pfdietz
Browse files

You can't coerce a float to an integer, even if the float is a mathematical integer.

parent 38526297
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
(integerp r) (integerp r)
(<= (- (/ d 2)) r (/ d 2)) (<= (- (/ d 2)) r (/ d 2))
(or (/= (abs r) (/ d 2)) (or (/= (abs r) (/ d 2))
(evenp (coerce q 'integer)))) (evenp (floor q))))
collect (list n d q r n2))) collect (list n d q r n2)))
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