Diff of /src/code/early-type.lisp [138d39] .. [98a76d] Maximize Restore

  Switch to side-by-side view

--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -259,22 +259,6 @@
 			 low)
 		     (if (consp high)
 			 (1- (type-bound-number high))
-			 high)))
-	    #!+negative-zero-is-not-zero
-	    (float
-	     ;; Canonicalize a low bound of (-0.0) to 0.0, and a high
-	     ;; bound of (+0.0) to -0.0.
-	     (values (if (and (consp low)
-			      (floatp (car low))
-			      (zerop (car low))
-			      (minusp (float-sign (car low))))
-			 (float 0.0 (car low))
-			 low)
-		     (if (and (consp high)
-			      (floatp (car high))
-			      (zerop (car high))
-			      (plusp (float-sign (car high))))
-			 (float -0.0 (car high))
 			 high)))
 	    (t 
 	     ;; no canonicalization necessary