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

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index be94415..8ed6283 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -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