0.8alpha.0.13:
[sbcl.git] / src / code / cross-float.lisp
index 72e6638..e0b2eb0 100644 (file)
                               (ash 1 52))
                       (expt 0.5d0 52))))
         (* sign (kludge-opaque-expt 2.0d0 expt) mant)))))
+