Changeset 12254


Ignore:
Timestamp:
Jun 11, 2009, 12:37:07 AM (10 years ago)
Author:
gz
Message:

From r12020: require speed 0 to turn off transforms

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r12220 r12254  
    151151               #'(lambda (env)
    152152                   (and (neq (compilation-speed-optimize-quantity env) 3)
    153                         (neq (safety-optimize-quantity env) 3)
    154                         #+ccl-0711 (neq (speed-optimize-quantity env) 0)
    155                         (neq (debug-optimize-quantity env) 3))) ; allow-transforms
     153                        (or (neq (speed-optimize-quantity env) 0)
     154                            (and (neq (safety-optimize-quantity env) 3)
     155                                 (neq (debug-optimize-quantity env) 3))))) ; allow-transforms
    156156               #'(lambda (var env)       ; force-boundp-checks
    157157                   (declare (ignore var))
Note: See TracChangeset for help on using the changeset viewer.