[Sbcl-commits] CVS: sbcl/src/code late-type.lisp,1.78,1.79

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv2483/src/code

Modified Files:
	late-type.lisp 
Log Message:
0.pre8.99:
	One more -0.0/0.0 fix:
	... numeric type ranges should be compared with EQUALP, not 
		EQUAL, to make (FLOAT 0.0) be the same as (FLOAT -0.0)


Index: late-type.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/late-type.lisp,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- late-type.lisp	23 Apr 2003 17:04:58 -0000	1.78
+++ late-type.lisp	24 Apr 2003 08:55:36 -0000	1.79
@@ -1417,8 +1417,8 @@
    (and (eq (numeric-type-class type1) (numeric-type-class type2))
 	(eq (numeric-type-format type1) (numeric-type-format type2))
 	(eq (numeric-type-complexp type1) (numeric-type-complexp type2))
-	(equal (numeric-type-low type1) (numeric-type-low type2))
-	(equal (numeric-type-high type1) (numeric-type-high type2)))
+	(equalp (numeric-type-low type1) (numeric-type-low type2))
+	(equalp (numeric-type-high type1) (numeric-type-high type2)))
    t))
 
 (!define-type-method (number :unparse) (type)