Index: /branches/working-0711-perf/ccl/compiler/nx-basic.lisp
===================================================================
--- /branches/working-0711-perf/ccl/compiler/nx-basic.lisp	(revision 9413)
+++ /branches/working-0711-perf/ccl/compiler/nx-basic.lisp	(revision 9414)
@@ -45,7 +45,6 @@
 (let ((policy (%istruct 'compiler-policy
                #'(lambda (env)
-                   (neq (debug-optimize-quantity env) 3))   ;  allow-tail-recursion-elimination
-               #'(lambda (env)
-                   (eq (debug-optimize-quantity env) 3))   ; inhibit-register-allocation
+                   (< (debug-optimize-quantity env) 2))   ;  allow-tail-recursion-elimination
+               #'false   ; inhibit-register-allocation
                #'(lambda (env)
                    (let* ((safety (safety-optimize-quantity env)))
@@ -54,6 +53,6 @@
                               safety)))) ; trust-declarations
                #'(lambda (env)
-                   (>= (speed-optimize-quantity env)
-                       (+ (space-optimize-quantity env) 2)))   ; open-code-inline
+                   (> (speed-optimize-quantity env)
+                      (space-optimize-quantity env)))   ; open-code-inline
                #'(lambda (env)
                    (and (eq (speed-optimize-quantity env) 3) 
@@ -65,7 +64,8 @@
                    (neq (debug-optimize-quantity env) 3))   ; inline-self-calls
                #'(lambda (env)
-                   (and (neq (compilation-speed-optimize-quantity env) 3)
-                        (neq (safety-optimize-quantity env) 3)
-                        (neq (debug-optimize-quantity env) 3)))   ; allow-transforms
+                   (unless (eql (safety-optimize-quantity env) 3)
+                     (and (neq (compilation-speed-optimize-quantity env) 3)
+                          (neq (speed-optimize-quantity env) 0)
+                          (neq (debug-optimize-quantity env) 3))))   ; allow-transforms
                #'(lambda (var env)       ; force-boundp-checks
                    (declare (ignore var))