diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index 985ce24678387a53c4d02193d230af88c1321301..6dcd5443ccc22497fcbf3eef52c4f4a15270fb80 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -306,7 +306,9 @@ (defknown decode-float (float) (values (float 0.5d0 (1d0)) float-exponent - (member 1f0 -1f0 -1d0 1d0)) + (member 1f0 -1f0 -1d0 1d0 + #+double-double -1w0 + #+double-double 1w0)) (movable foldable flushable explicit-check)) (defknown scale-float (float float-exponent) float (movable foldable flushable explicit-check))