0.6.9.11:

[sbcl.git] / src / compiler / codegen.lisp

diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp
index 12c3ab4..e821679 100644 (file)
--- a/src/compiler/codegen.lisp
+++ b/src/compiler/codegen.lisp
@@ -100,7 +100,7 @@
        (policy (lambda-bind
                 (block-home-lambda
                  (block-next (component-head *component-being-compiled*))))
-               (or (> speed cspeed) (> space cspeed)))))
+               (or (> speed compilation-speed) (> space compilation-speed)))))
 (defun default-segment-inst-hook ()
   #!+sb-show
   (and *compiler-trace-output* #'trace-instruction))