X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-float.lisp;h=edddac19b40d59a78d63f10c0030532ee2f985a8;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=35d3d15ffdcd92cea6e7ccb5377d45a1e3807031;hpb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;p=sbcl.git

diff --git a/src/code/early-float.lisp b/src/code/early-float.lisp
index 35d3d15..edddac1 100644
--- a/src/code/early-float.lisp
+++ b/src/code/early-float.lisp
@@ -103,21 +103,13 @@
 (defconstant most-positive-double-float
   (double-from-bits 0 sb!vm:double-float-normal-exponent-max
 		    (ldb (byte sb!vm:double-float-digits 0) -1)))
-#!-long-float
+
 (defconstant most-positive-long-float most-positive-double-float)
-#!+(and long-float x86)
-(defconstant most-positive-long-float
-  (long-from-bits 0 sb!vm:long-float-normal-exponent-max
-		  (ldb (byte sb!vm:long-float-digits 0) -1)))
+
 (defconstant most-negative-double-float
   (double-from-bits 1 sb!vm:double-float-normal-exponent-max
 		    (ldb (byte sb!vm:double-float-digits 0) -1)))
-#!-long-float
 (defconstant most-negative-long-float most-negative-double-float)
-#!+(and long-float x86)
-(defconstant most-negative-long-float
-  (long-from-bits 1 sb!vm:long-float-normal-exponent-max
-		  (ldb (byte sb!vm:long-float-digits 0) -1)))
 
 ;;; We don't want to do these DEFCONSTANTs at cross-compilation time,
 ;;; because the cross-compilation host might not support floating