[Openmcl-cvs-notifications] r11977 - /trunk/source/compiler/optimizers.lisp

[gb at clozure.com]

Author: gb
Date: Mon Apr 27 15:06:18 2009
New Revision: 11977

Log:
Constant-fold arithmetic comparisons.  (If there's a good reason not
to, it's not obvious.)


Modified:
    trunk/source/compiler/optimizers.lisp

Modified: trunk/source/compiler/optimizers.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/optimizers.lisp (original)
+++ trunk/source/compiler/optimizers.lisp Mon Apr 27 15:06:18 2009
@@ -78,7 +78,8 @@
                      length aref svref char schar bit sbit getf identity l=
ist-length
                      car cdr cadr cddr nth nthcdr last load-byte deposit-b=
yte byte-mask
                      member search count position assoc rassoc integer-len=
gth
-		         float not null char-int expt abs))
+		         float not null char-int expt abs
+                     =3D /=3D < <=3D > >=3D))
 =

 (defun %binop-cassoc (call)
   (unless (and (cddr call) (null (cdr (%cddr call))))