Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.
* (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>