Re: [Sbcl-devel] (random tester) Another <SINGLE-FLOAT quiet NaN> bug

[Alexey D. <ade...@co...>]

"Paul F. Dietz" <di...@dl...> writes:

> * (compile nil '(lambda (b)
>                  (declare (type (integer 216 419) b))
>                  (let ((v3 (rem b (min -19 (round b)))))
>                     (if (= b (truncate v3 (max 86 v3))) v3 b))))
> 
> debugger invoked on condition of type SIMPLE-ERROR:
>    can't decode NaN or infinity: #<SINGLE-FLOAT quiet NaN>

Maybe something like this help?