X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fprimtype.lisp;h=7aec24b7d0e7caf4cdb55305223ec7dcf77c0480;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=1178b6adc22b31ba304a830dc4636431066da258;hpb=9767de1cecfe50560fe1da69fd458b6148a66da3;p=sbcl.git

diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp
index 1178b6a..7aec24b 100644
--- a/src/compiler/generic/primtype.lisp
+++ b/src/compiler/generic/primtype.lisp
@@ -86,17 +86,14 @@
 (!def-primitive-type single-float (single-reg descriptor-reg))
 (/show0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT")
 (!def-primitive-type double-float (double-reg descriptor-reg))
-#!+long-float
-(!def-primitive-type long-float (long-reg descriptor-reg))
+
 (/show0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT")
 (!def-primitive-type complex-single-float (complex-single-reg descriptor-reg)
   :type (complex single-float))
 (/show0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT")
 (!def-primitive-type complex-double-float (complex-double-reg descriptor-reg)
   :type (complex double-float))
-#!+long-float
-(!def-primitive-type complex-long-float (complex-long-reg descriptor-reg)
-  :type (complex long-float))
+
 
 ;;; primitive other-pointer array types
 (/show0 "primtype.lisp 96")
@@ -228,8 +225,8 @@
 			      (return (values
 				       (primitive-type-or-lose type)
 				       (and (= lo min) (= hi max))))))))
-		       ((or (and hi (< hi most-negative-fixnum))
-			    (and lo (> lo most-positive-fixnum)))
+		       ((or (and hi (< hi sb!xc:most-negative-fixnum))
+			    (and lo (> lo sb!xc:most-positive-fixnum)))
 			(part-of bignum))
 		       (t
 			(any))))
@@ -239,13 +236,9 @@
 		     ((short-float single-float)
 		      (values (primitive-type-or-lose 'single-float)
 			      exact))
-		     ((double-float #!-long-float long-float)
+		     ((double-float)
 		      (values (primitive-type-or-lose 'double-float)
 			      exact))
-		     #!+long-float
-		     (long-float
-		      (values (primitive-type-or-lose 'long-float)
-			      exact))
 		     (t
 		      (any)))))
 		(t
@@ -257,13 +250,9 @@
 		      ((short-float single-float)
 		       (values (primitive-type-or-lose 'complex-single-float)
 			       exact))
-		      ((double-float #!-long-float long-float)
+		      ((double-float long-float)
 		       (values (primitive-type-or-lose 'complex-double-float)
 			       exact))
-		      #!+long-float
-		      (long-float
-		       (values (primitive-type-or-lose 'complex-long-float)
-			       exact))
 		      (t
 		       (part-of complex))))
 		  (part-of complex)))