0.9.0.17: minor tweaks

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

diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp
index d79a230..b62b239 100644 (file)
--- a/src/compiler/policies.lisp
+++ b/src/compiler/policies.lisp
@@ -72,7 +72,7 @@
   ("degraded" "full" "full" "full"))
 
 (define-optimization-quality insert-step-conditions
-    (if (> debug (max speed space))
+    (if (> debug (max speed space compilation-speed))
         debug
         0)
   ("no" "no" "partial" "full"))