X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=be089db61406e8b64a483702e5891d0820887f23;hb=51cf665f514935c8067f86f3850fd917731cada0;hp=d4ce370f0eda88a8f7a75f04d4e99f1cd3498725;hpb=16f848f33e91035457132f704448d2d23c34724e;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index d4ce370..be089db 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -347,9 +347,9 @@
 				       original-functional)))))))
 	(cond (losing-local-functional
 	       (let ((*compiler-error-context* call))
-		 (compiler-note "couldn't inline expand because expansion ~
-		                 calls this LET-converted local function:~
-		                 ~%  ~S"
+		 (compiler-notify "couldn't inline expand because expansion ~
+		                   calls this LET-converted local function:~
+		                   ~%  ~S"
 				(leaf-debug-name losing-local-functional)))
 	       original-functional)
 	      (t
@@ -602,7 +602,7 @@
 	  (let ((cont (first key)))
 	    (unless (constant-continuation-p cont)
 	      (when flame
-		(compiler-note "non-constant keyword in keyword call"))
+		(compiler-notify "non-constant keyword in keyword call"))
 	      (setf (basic-combination-kind call) :error)
 	      (return-from convert-more-call))
 
@@ -616,7 +616,7 @@
                          (setq allow-found t
                                allowp (continuation-value val)))
                         (t (when flame
-                             (compiler-note "non-constant :ALLOW-OTHER-KEYS value"))
+                             (compiler-notify "non-constant :ALLOW-OTHER-KEYS value"))
                            (setf (basic-combination-kind call) :error)
                            (return-from convert-more-call)))))
 	      (dolist (var (key-vars)