X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=02797be11963c63bbbefc3f79d6f5475db4d458d;hb=03df95052f395c205d7e5028e06bc043ee60125d;hp=0a9d898812bfd28d92273d50bcdf594510b8b217;hpb=942e5de3f3e27e1cc6ae4aae69c040fa1dc7db00;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 0a9d898..02797be 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -862,8 +862,8 @@
                (return-block (and return (node-block return))))
 	  (unless (leaf-ever-used clambda)
 	    (let ((*compiler-error-context* bind))
-	      (compiler-note "deleting unused function~:[.~;~:*~%  ~S~]"
-			     (leaf-debug-name clambda))))
+	      (compiler-notify "deleting unused function~:[.~;~:*~%  ~S~]"
+			       (leaf-debug-name clambda))))
           (unless (block-delete-p bind-block)
             (unlink-blocks (component-head component) bind-block))
 	  (when (and return-block (not (block-delete-p return-block)))
@@ -1240,7 +1240,7 @@
 					  0)))
 	    (unless (return-p node)
 	      (let ((*compiler-error-context* node))
-		(compiler-note "deleting unreachable code")))
+		(compiler-notify "deleting unreachable code")))
 	    (return))))))
   (values))
 
@@ -1594,10 +1594,10 @@
 	   ;; compiler to be able to use WITH-COMPILATION-UNIT on
 	   ;; arbitrarily huge blocks of code. -- WHN)
 	   (let ((*compiler-error-context* node))
-	     (compiler-note "*INLINE-EXPANSION-LIMIT* (~W) was exceeded, ~
-			     probably trying to~%  ~
-			     inline a recursive function."
-			    *inline-expansion-limit*))
+	     (compiler-notify "*INLINE-EXPANSION-LIMIT* (~W) was exceeded, ~
+			       probably trying to~%  ~
+			       inline a recursive function."
+			      *inline-expansion-limit*))
 	   nil)
 	  (t t))))
 
@@ -1695,7 +1695,7 @@
 	     (policy (or node *lexenv*)
 		     (= inhibit-warnings 0)))
     (let ((*compiler-error-context* node))
-      (compiler-note (event-info-description info))))
+      (compiler-notify (event-info-description info))))
 
   (let ((action (event-info-action info)))
     (when action (funcall action node))))