Ignore:
Timestamp:
Mar 29, 2010, 5:08:48 PM (9 years ago)
Author:
gz
Message:

replace ccl-0711 feature with ccl-qres

File:
1 edited

Legend:

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

    r13214 r13565  
    4848;; you can declare FTYPE and that will turn off any warnings without interfering with
    4949;; the function being defined later).  For now just provide this as an out.
    50 (defvar *compiler-warn-on-undefined-type-references* #+ccl-0711 t #-ccl-0711 t)
     50(defvar *compiler-warn-on-undefined-type-references* #+ccl-qres t #-ccl-qres t)
    5151
    5252
     
    142142(let ((policy (%istruct 'compiler-policy
    143143               #'(lambda (env)
    144                    #+ccl-0711 (< (debug-optimize-quantity env) 2)
    145                    #-ccl-0711 (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
     144                   #+ccl-qres (< (debug-optimize-quantity env) 2)
     145                   #-ccl-qres (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
    146146               #'(lambda (env)
    147147                   (declare (ignorable env))
    148                    #+ccl-0711 nil
    149                    #-ccl-0711 (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
     148                   #+ccl-qres nil
     149                   #-ccl-qres (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
    150150               #'(lambda (env)
    151151                   (let* ((safety (safety-optimize-quantity env)))
     
    154154                              safety)))) ; trust-declarations
    155155               #'(lambda (env)
    156                    #+ccl-0711 (> (speed-optimize-quantity env)
     156                   #+ccl-qres (> (speed-optimize-quantity env)
    157157                                 (space-optimize-quantity env))
    158                    #-ccl-0711 (>= (speed-optimize-quantity env)
     158                   #-ccl-qres (>= (speed-optimize-quantity env)
    159159                                  (+ (space-optimize-quantity env) 2))) ; open-code-inline
    160160               #'(lambda (env)
Note: See TracChangeset for help on using the changeset viewer.