X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Freader.lisp;h=49a0ba0aaa466d9b6d9a6955e4a2223347b7857d;hb=2f2fad31a662b5387376003fab7ef328b4ac9063;hp=41226cbc060399990f140619d9444dfc70a7a628;hpb=1bbb76fcfb9baddf0dc96412c87575d8aeb69c6d;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 41226cb..49a0ba0 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -1220,22 +1220,19 @@
 		 ;; while attempting to constant-fold. Maybe some sort
 		 ;; of load-time-form magic could be used instead?
 		 (case float-format
-		   (short-float
-		    (values
-		     (log sb!xc:least-positive-normalized-short-float 10s0)
-		     (log sb!xc:most-positive-short-float 10s0)))
-		   (single-float
+		   ((short-float single-float)
 		    (values
 		     (log sb!xc:least-positive-normalized-single-float 10f0)
 		     (log sb!xc:most-positive-single-float 10f0)))
-		   (double-float
+		   ((double-float #!-long-float long-float)
 		    (values
 		     (log sb!xc:least-positive-normalized-double-float 10d0)
 		     (log sb!xc:most-positive-double-float 10d0)))
+		   #!+long-float
 		   (long-float
 		    (values
-		     (log sb!xc:least-positive-normalized-long-float 10L0)
-		     (log sb!xc:most-positive-long-float 10L0))))
+		     (log sb!xc:least-positive-normalized-long-float 10l0)
+		     (log sb!xc:most-positive-long-float 10l0))))
 	       (let ((correction (cond ((<= exponent min-expo)
 					(ceiling (- min-expo exponent)))
 				       ((>= exponent max-expo)