Ignore:
Timestamp:
Oct 11, 2010, 6:48:15 PM (9 years ago)
Author:
rme
Message:

Remove conditionalizations on ccl-qres.

File:
1 edited

Legend:

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

    r14348 r14351  
    5858;; you can declare FTYPE and that will turn off any warnings without interfering with
    5959;; the function being defined later).  For now just provide this as an out.
    60 (defvar *compiler-warn-on-undefined-type-references* #+ccl-qres t #-ccl-qres t)
     60(defvar *compiler-warn-on-undefined-type-references* t)
    6161
    6262
     
    154154(let ((policy (%istruct 'compiler-policy
    155155               #'(lambda (env)
    156                    #+ccl-qres (< (debug-optimize-quantity env) 2)
    157                    #-ccl-qres (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
     156                   (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
    158157               #'(lambda (env)
    159                    (declare (ignorable env))
    160                    #+ccl-qres nil
    161                    #-ccl-qres (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
     158                   (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
    162159               #'(lambda (env)
    163160                   (let* ((safety (safety-optimize-quantity env)))
     
    166163                              safety)))) ; trust-declarations
    167164               #'(lambda (env)
    168                    #+ccl-qres (> (speed-optimize-quantity env)
    169                                  (space-optimize-quantity env))
    170                    #-ccl-qres (>= (speed-optimize-quantity env)
    171                                   (+ (space-optimize-quantity env) 2))) ; open-code-inline
     165                   (>= (speed-optimize-quantity env)
     166                       (+ (space-optimize-quantity env) 2))) ; open-code-inline
    172167               #'(lambda (env)
    173168                   (and (eq (speed-optimize-quantity env) 3)
Note: See TracChangeset for help on using the changeset viewer.