X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=0cac21d6416ac6efd19a1930b90ce375018752b6;hb=ff57884e206ac28660af6af34315bc9b81697f57;hp=08c20ad930fbfe258fb6b22a100142170b19c498;hpb=245101f127d61e28b9c864c720eb17973469a904;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 08c20ad..0cac21d 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -935,7 +935,7 @@
 			;; issue a full WARNING if the call
 			;; violates a DECLAIM FTYPE.
 			:lossage-fun #'compiler-style-warn
-			:unwinnage-fun #'compiler-note)
+			:unwinnage-fun #'compiler-notify)
 	 (assert-call-type call type)
 	 (maybe-terminate-block call ir1-converting-not-optimizing-p)
 	 (recognize-known-call call ir1-converting-not-optimizing-p))