X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=7b18f5a7856b53bc65b7aba06ed5ad31dc15b835;hb=aa61c7571b33b86981301f34d3acdb66666f53a3;hp=1da4fb7d3e5e18d8c460bedc75adc09010c5f91f;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 1da4fb7..7b18f5a 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -869,7 +869,8 @@
 	      #-(or linux hpux) #.(/ (asinh most-positive-double-float) 4d0)
 	      ;; This is more accurate under linux.
 	      #+(or linux hpux) #.(/ (+ (log 2.0d0)
-                                          (log most-positive-double-float)) 4d0))
+					(log most-positive-double-float))
+				     4d0))
               (coerce-to-complex-type (float-sign x)
                                       (float-sign y) z))
 	  (t