Changeset 13675


Ignore:
Timestamp:
Apr 27, 2010, 12:09:29 PM (9 years ago)
Author:
gz
Message:

Rename feature ccl-0711 to ccl-qres

Location:
trunk/source
Files:
8 edited

Legend:

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

    r13213 r13675  
    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)
  • trunk/source/level-1/l1-pathnames.lisp

    r13579 r13675  
    627627          (ignore-errors
    628628            (truename
    629              (native-to-directory-pathname (or #+ccl-0711 (getenv "HOME")
     629             (native-to-directory-pathname (or #+ccl-qres (getenv "HOME")
    630630                                               (get-user-home-dir (getuid))))))))
    631631    (if (and native (eq :absolute (car (pathname-directory native))))
  • trunk/source/level-1/l1-readloop-lds.lisp

    r13368 r13675  
    637637(defvar *break-frame* nil "frame-pointer arg to break-loop")
    638638(defvar *break-loop-when-uninterruptable* t)
    639 (defvar *show-restarts-on-break* #+ccl-0711 t #-ccl-0711 nil)
     639(defvar *show-restarts-on-break* #+ccl-qres t #-ccl-qres nil)
    640640(defvar *show-available-restarts* nil)
    641641
  • trunk/source/level-1/linux-files.lisp

    r13525 r13675  
    12961296
    12971297  (defparameter *silently-ignore-catastrophic-failure-in-run-program*
    1298     #+ccl-0711 t #-ccl-0711 nil
     1298    #+ccl-qres t #-ccl-qres nil
    12991299    "If NIL, signal an error if run-program is unable to start the program.
    13001300If non-NIL, treat failure to start the same as failure from the program
  • trunk/source/lib/backtrace.lisp

    r13468 r13675  
    2929(defparameter *backtrace-print-length* 5)
    3030
    31 (defparameter *backtrace-format* #+ccl-0711 :direct #-ccl-0711 :traditional
     31(defparameter *backtrace-format* #+ccl-qres :direct #-ccl-qres :traditional
    3232  "If :TRADITIONAL, shows calls to non-toplevel functions using FUNCALL, and shows frame address values.
    3333   If :DIRECT, uses a more streamlined format.")
  • trunk/source/lib/macros.lisp

    r13458 r13675  
    18781878                   
    18791879
    1880 (defvar *warn-about-unreferenced-required-args-in-methods* #+ccl-0711 nil #-ccl-0711 T)
     1880(defvar *warn-about-unreferenced-required-args-in-methods* #+ccl-qres nil #-ccl-qres T)
    18811881
    18821882(defun parse-defmethod (name args env)
  • trunk/source/lib/nfcomp.lisp

    r13569 r13675  
    7272(defvar *fcomp-external-format* :default)
    7373
    74 (defvar *fasl-break-on-program-errors* #+ccl-0711 nil #-ccl-0711 :defer
     74(defvar *fasl-break-on-program-errors* #+ccl-qres nil #-ccl-qres :defer
    7575  "Controls what happens when the compiler detects PROGRAM-ERROR's during file compilation.
    7676
  • trunk/source/lib/source-files.lisp

    r13201 r13675  
    126126definition type NAME"
    127127  (loop with known-keys = '( ;; Backward compatibility
    128                             #+ccl-0711 :default-name-function)
     128                            #+ccl-qres :default-name-function)
    129129        for (key . nil) in options
    130130        unless (memq key known-keys)
Note: See TracChangeset for help on using the changeset viewer.