Changeset 14725

Timestamp:

Apr 22, 2011, 2:10:02 PM (14 years ago)

Author:

Gary Byers

Message:

Constant-fold calls to SQRT. Need a bit somewhere.

File:

• trunk/source/compiler/optimizers.lisp (modified) (1 diff)

trunk/source/compiler/optimizers.lisp

@@ -80 +80 @@
                      car cdr cadr cddr nth nthcdr last load-byte deposit-byte byte-mask
                      member search count position assoc rassoc integer-length
-                         float not null char-int expt abs
+                         float not null char-int expt abs sqrt 
                      = /= < <= > >=))