X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-float.lisp;h=e0b2eb009f751ef30ca55d88f348a30b310c289a;hb=60d2531e0a12daa5a43e390affe9260688b17d21;hp=72e66385d24ea5048db1e9aeda021ad8263a98ff;hpb=086927c64682b73e00cb5090ec72e1a72fb30ece;p=sbcl.git

diff --git a/src/code/cross-float.lisp b/src/code/cross-float.lisp
index 72e6638..e0b2eb0 100644
--- a/src/code/cross-float.lisp
+++ b/src/code/cross-float.lisp
@@ -237,3 +237,4 @@
 			       (ash 1 52))
 		       (expt 0.5d0 52))))
 	 (* sign (kludge-opaque-expt 2.0d0 expt) mant)))))
+