Changeset 13675

Timestamp:

Apr 27, 2010, 5:09:29 AM (15 years ago)

Author:

gz

Message:

Rename feature ccl-0711 to ccl-qres

Location:

trunk/source

Files:

• compiler/nx-basic.lisp (modified) (3 diffs)
• level-1/l1-pathnames.lisp (modified) (1 diff)
• level-1/l1-readloop-lds.lisp (modified) (1 diff)
• level-1/linux-files.lisp (modified) (1 diff)
• lib/backtrace.lisp (modified) (1 diff)
• lib/macros.lisp (modified) (1 diff)
• lib/nfcomp.lisp (modified) (1 diff)
• lib/source-files.lisp (modified) (1 diff)

trunk/source/compiler/nx-basic.lisp

@@ -48 +48 @@
 ;; you can declare FTYPE and that will turn off any warnings without interfering with
 ;; the function being defined later).  For now just provide this as an out.
-(defvar *compiler-warn-on-undefined-type-references* #+ccl-0711 t #-ccl-0711 t)
+(defvar *compiler-warn-on-undefined-type-references* #+ccl-qres t #-ccl-qres t)
 
 
@@ -142 +142 @@
 (let ((policy (%istruct 'compiler-policy
                #'(lambda (env)
-                   #+ccl-0711 (< (debug-optimize-quantity env) 2)
-                   #-ccl-0711 (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
+                   #+ccl-qres (< (debug-optimize-quantity env) 2)
+                   #-ccl-qres (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
                #'(lambda (env)
                    (declare (ignorable env))
-                   #+ccl-0711 nil
-                   #-ccl-0711 (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
+                   #+ccl-qres nil
+                   #-ccl-qres (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
                #'(lambda (env)
                    (let* ((safety (safety-optimize-quantity env)))
@@ -154 +154 @@
                               safety)))) ; trust-declarations
                #'(lambda (env)
-                   #+ccl-0711 (> (speed-optimize-quantity env)
+                   #+ccl-qres (> (speed-optimize-quantity env)
                                  (space-optimize-quantity env))
-                   #-ccl-0711 (>= (speed-optimize-quantity env)
+                   #-ccl-qres (>= (speed-optimize-quantity env)
                                   (+ (space-optimize-quantity env) 2))) ; open-code-inline
                #'(lambda (env)

trunk/source/level-1/l1-pathnames.lisp

@@ -627 +627 @@
           (ignore-errors
             (truename
-             (native-to-directory-pathname (or #+ccl-0711 (getenv "HOME")
+             (native-to-directory-pathname (or #+ccl-qres (getenv "HOME")
                                                (get-user-home-dir (getuid))))))))
     (if (and native (eq :absolute (car (pathname-directory native))))

trunk/source/level-1/l1-readloop-lds.lisp

@@ -637 +637 @@
 (defvar *break-frame* nil "frame-pointer arg to break-loop")
 (defvar *break-loop-when-uninterruptable* t)
-(defvar *show-restarts-on-break* #+ccl-0711 t #-ccl-0711 nil)
+(defvar *show-restarts-on-break* #+ccl-qres t #-ccl-qres nil)
 (defvar *show-available-restarts* nil)
 

trunk/source/level-1/linux-files.lisp

@@ -1296 +1296 @@
 
   (defparameter *silently-ignore-catastrophic-failure-in-run-program*
-    #+ccl-0711 t #-ccl-0711 nil
+    #+ccl-qres t #-ccl-qres nil
     "If NIL, signal an error if run-program is unable to start the program.
 If non-NIL, treat failure to start the same as failure from the program

trunk/source/lib/backtrace.lisp

@@ -29 +29 @@
 (defparameter *backtrace-print-length* 5)
 
-(defparameter *backtrace-format* #+ccl-0711 :direct #-ccl-0711 :traditional
+(defparameter *backtrace-format* #+ccl-qres :direct #-ccl-qres :traditional
   "If :TRADITIONAL, shows calls to non-toplevel functions using FUNCALL, and shows frame address values.
    If :DIRECT, uses a more streamlined format.")

trunk/source/lib/macros.lisp

@@ -1878 +1878 @@
                    
 
-(defvar *warn-about-unreferenced-required-args-in-methods* #+ccl-0711 nil #-ccl-0711 T)
+(defvar *warn-about-unreferenced-required-args-in-methods* #+ccl-qres nil #-ccl-qres T)
 
 (defun parse-defmethod (name args env)

trunk/source/lib/nfcomp.lisp

@@ -72 +72 @@
 (defvar *fcomp-external-format* :default)
 
-(defvar *fasl-break-on-program-errors* #+ccl-0711 nil #-ccl-0711 :defer
+(defvar *fasl-break-on-program-errors* #+ccl-qres nil #-ccl-qres :defer
   "Controls what happens when the compiler detects PROGRAM-ERROR's during file compilation.
 

trunk/source/lib/source-files.lisp

@@ -126 +126 @@
 definition type NAME"
   (loop with known-keys = '( ;; Backward compatibility
-                            #+ccl-0711 :default-name-function)
+                            #+ccl-qres :default-name-function)
         for (key . nil) in options
         unless (memq key known-keys)