Index: /trunk/source/compiler/nx-basic.lisp
===================================================================
--- /trunk/source/compiler/nx-basic.lisp	(revision 13674)
+++ /trunk/source/compiler/nx-basic.lisp	(revision 13675)
@@ -48,5 +48,5 @@
 ;; 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,10 +142,10 @@
 (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,7 +154,7 @@
                               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)
Index: /trunk/source/level-1/l1-pathnames.lisp
===================================================================
--- /trunk/source/level-1/l1-pathnames.lisp	(revision 13674)
+++ /trunk/source/level-1/l1-pathnames.lisp	(revision 13675)
@@ -627,5 +627,5 @@
           (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))))
Index: /trunk/source/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/source/level-1/l1-readloop-lds.lisp	(revision 13674)
+++ /trunk/source/level-1/l1-readloop-lds.lisp	(revision 13675)
@@ -637,5 +637,5 @@
 (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)
 
Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 13674)
+++ /trunk/source/level-1/linux-files.lisp	(revision 13675)
@@ -1296,5 +1296,5 @@
 
   (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
Index: /trunk/source/lib/backtrace.lisp
===================================================================
--- /trunk/source/lib/backtrace.lisp	(revision 13674)
+++ /trunk/source/lib/backtrace.lisp	(revision 13675)
@@ -29,5 +29,5 @@
 (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.")
Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 13674)
+++ /trunk/source/lib/macros.lisp	(revision 13675)
@@ -1878,5 +1878,5 @@
 		   
 
-(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)
Index: /trunk/source/lib/nfcomp.lisp
===================================================================
--- /trunk/source/lib/nfcomp.lisp	(revision 13674)
+++ /trunk/source/lib/nfcomp.lisp	(revision 13675)
@@ -72,5 +72,5 @@
 (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.
 
Index: /trunk/source/lib/source-files.lisp
===================================================================
--- /trunk/source/lib/source-files.lisp	(revision 13674)
+++ /trunk/source/lib/source-files.lisp	(revision 13675)
@@ -126,5 +126,5 @@
 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)