Forked from
cmucl / cmucl
Source project has a limited visibility.
-
toy authored
(defun f (x) (declare (type (integer 0 100) x)) (ffloor x)) was not compiling. FTRUNCATE-DERIVE-TYPE-QUOT didn't handle the case where the result type was FLOAT, which implied that NUMERIC-TYPE-FORMAT is NIL.
toy authored(defun f (x) (declare (type (integer 0 100) x)) (ffloor x)) was not compiling. FTRUNCATE-DERIVE-TYPE-QUOT didn't handle the case where the result type was FLOAT, which implied that NUMERIC-TYPE-FORMAT is NIL.