0.8.0.74:

[sbcl.git] / src / compiler / ir1tran-lambda.lisp

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index 15943b7..8ed6283 100644 (file)
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -869,7 +869,7 @@
                                        (append aux-vars vars)
                                        nil result-cont))
               (forms (if (and *allow-debug-catch-tag*
-                              (policy *lexenv* (> debug (max speed space))))
+                              (policy *lexenv* (= insert-debug-catch 3)))
                          `((catch (make-symbol "SB-DEBUG-CATCH-TAG")
                              ,@forms))
                          forms))
@@ -995,7 +995,7 @@
      ;; compilation unit, so we can't do that. -- WHN 2001-02-11
      :lossage-fun #'compiler-style-warn
      :unwinnage-fun (cond (info #'compiler-style-warn)
-                         (for-real #'compiler-note)
+                         (for-real #'compiler-notify)
                          (t nil))
      :really-assert
      (and for-real