X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Frepresent.lisp;fp=src%2Fcompiler%2Frepresent.lisp;h=ec70efafc6b89daea4a92c2cc0d8fb88c06491eb;hb=ff57884e206ac28660af6af34315bc9b81697f57;hp=f8151f2411d4ae96c091d0f2dc61ed63b4449f83;hpb=245101f127d61e28b9c864c720eb17973469a904;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index f8151f2..ec70efa 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -370,15 +370,15 @@
 						(vop-args op-vop)
 						(vop-results op-vop)))
 			       (error "couldn't find op? bug!")))))
-	     (compiler-note
+	     (compiler-notify
 	      "doing ~A (cost ~W)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~
 	       the ~:R ~:[result~;argument~] of ~A"
 	      note cost name arg-p name
 	      pos arg-p op-note)))
 	  (t
-	   (compiler-note "doing ~A (cost ~W)~@[ from ~S~]~@[ to ~S~]"
-			  note cost (get-operand-name op-tn t)
-			  (get-operand-name dest-tn nil)))))
+	   (compiler-notify "doing ~A (cost ~W)~@[ from ~S~]~@[ to ~S~]"
+			    note cost (get-operand-name op-tn t)
+			    (get-operand-name dest-tn nil)))))
   (values))
 
 ;;; Find a move VOP to move from the operand OP-TN to some other