0.9.2.43:

[sbcl.git] / src / code / unportable-float.lisp

diff --git a/src/code/unportable-float.lisp b/src/code/unportable-float.lisp
index 9e7abff..e09885f 100644 (file)
--- 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")))))