X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funportable-float.lisp;h=e09885fcd923f2775a18132c3de1bbf8093c20d9;hb=0e3c4b4db102bd204a30402d7e5a0de44aea57ce;hp=9e7abffa541125b712d96e2bc08670f6774b344e;hpb=ef339cbbd81c403e117953b08eac7f446dc151ba;p=sbcl.git

diff --git a/src/code/unportable-float.lisp b/src/code/unportable-float.lisp
index 9e7abff..e09885f 100644
--- a/src/code/unportable-float.lisp
+++ b/src/code/unportable-float.lisp
@@ -20,9 +20,9 @@
     (declare (notinline opaque-identity make-single-float make-double-float))
     (ecase name
       (:single-float-negative-zero (make-single-float
-				    (opaque-identity #x-80000000)))
+                                    (opaque-identity #x-80000000)))
       (:double-float-negative-zero (make-double-float
-				    (opaque-identity #x-80000000)
-				    (opaque-identity #x00000000)))
+                                    (opaque-identity #x-80000000)
+                                    (opaque-identity #x00000000)))
       #!+long-float
       (:long-float-negative-zero (error "write LONG-FLOAT creation form")))))