X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ffloat.lisp;h=cc2b750968db13dd0c7d6612f5cc06c499c0a92a;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=5fa799779f9e75af8fefdc0a62f69e24b2842d40;hpb=82653abf5573c22c691e2243b70647ecdaa6aea8;p=sbcl.git

diff --git a/src/code/float.lisp b/src/code/float.lisp
index 5fa7997..cc2b750 100644
--- a/src/code/float.lisp
+++ b/src/code/float.lisp
@@ -34,7 +34,8 @@
   (declare (type bit sign) (type (unsigned-byte 53) sig)
 	   (type (unsigned-byte 11) exp))
   (make-double-float (dpb exp sb!vm:double-float-exponent-byte
-			  (dpb (ash sig -32) sb!vm:double-float-significand-byte
+			  (dpb (ash sig -32)
+			       sb!vm:double-float-significand-byte
 			       (if (zerop sign) 0 -1)))
 		     (ldb (byte 32 0) sig)))
 #!+(and long-float x86)