Changeset 12020


Ignore:
Timestamp:
May 8, 2009, 8:52:26 PM (10 years ago)
Author:
gz
Message:

require speed 0 to turn off allow-transforms in default compiler policy

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx-basic.lisp

    r11819 r12020  
    144144               #'(lambda (env)
    145145                   (and (neq (compilation-speed-optimize-quantity env) 3)
    146                         (neq (safety-optimize-quantity env) 3)
    147                         #+ccl-0711 (neq (speed-optimize-quantity env) 0)
    148                         (neq (debug-optimize-quantity env) 3))) ; allow-transforms
     146                        (or (neq (speed-optimize-quantity env) 0)
     147                            (and (neq (safety-optimize-quantity env) 3)
     148                                 (neq (debug-optimize-quantity env) 3))))) ; allow-transforms
    149149               #'(lambda (var env)       ; force-boundp-checks
    150150                   (declare (ignore var))
Note: See TracChangeset for help on using the changeset viewer.