X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran-lambda.lisp;h=8ed628368b4d754dac2a47b3c48479af881c77fd;hb=03df95052f395c205d7e5028e06bc043ee60125d;hp=c57459a93d82d38cfbc8ef55173514e5e22df2db;hpb=16f848f33e91035457132f704448d2d23c34724e;p=sbcl.git

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index c57459a..8ed6283 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -47,7 +47,7 @@
 
 ;;; Make the default keyword for a &KEY arg, checking that the keyword
 ;;; isn't already used by one of the VARS.
-(declaim (ftype (sfunction (symbol list t) keyword) make-keyword-for-arg))
+(declaim (ftype (sfunction (symbol list t) symbol) make-keyword-for-arg))
 (defun make-keyword-for-arg (symbol vars keywordify)
   (let ((key (if (and keywordify (not (keywordp symbol)))
 		 (keywordicate symbol)
@@ -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