X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Frepresent.lisp;h=77fafaef3e1405e55eb654f103e1884190952fff;hb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;hp=a6a7480f8590ffb988f8d488364f1ab717208cff;hpb=20748f2dd7965dcd1446a1cb27e5a5af18a0e5bb;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index a6a7480..77fafae 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -370,12 +370,12 @@
 						(vop-results op-vop)))
 			       (error "couldn't find op? bug!")))))
 	     (compiler-note
-	      "doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~
+	      "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 ~D)~@[ from ~S~]~@[ to ~S~]"
+	   (compiler-note "doing ~A (cost ~W)~@[ from ~S~]~@[ to ~S~]"
 			  note cost (get-operand-name op-tn t)
 			  (get-operand-name dest-tn nil)))))
   (values))