X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Flate-type.lisp;h=4e16fbba005b4081cf9a835db1a9a68d8d5e0511;hb=b42068e9080417a073dcb709cdd2e0315599b3df;hp=e0b7317f0fb28850daa788b1fd3fec9b4c5a7c3d;hpb=2378b4fe567a8fea78b1e4915b9497d8c18ca92f;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index e0b7317..4e16fbb 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -1503,11 +1503,15 @@
 
 (!define-type-class number)
 
+(declaim (inline numeric-type-equal))
+(defun numeric-type-equal (type1 type2)
+  (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))))
+
 (!define-type-method (number :simple-=) (type1 type2)
   (values
-   (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))
+   (and (numeric-type-equal type1 type2)
 	(equalp (numeric-type-low type1) (numeric-type-low type2))
 	(equalp (numeric-type-high type1) (numeric-type-high type2)))
    t))