X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fltn.lisp;h=a728e2e0623604ca1b1ee7998e8cc75b0623e9e6;hb=c1aeac123df223746249567a9c0d2f656d1222cb;hp=0da76e34420466a393dd94e7e18858a00d94fd14;hpb=e2b33e0d99f0f93263defcd2e0dffe20c4e388f3;p=sbcl.git

diff --git a/src/compiler/ltn.lisp b/src/compiler/ltn.lisp
index 0da76e3..a728e2e 100644
--- a/src/compiler/ltn.lisp
+++ b/src/compiler/ltn.lisp
@@ -813,7 +813,7 @@
 		   (valid (valid-function-use call type))
 		   (strict-valid (valid-function-use call type
 						     :strict-result t)))
-	      (frob "unable to do ~A (cost ~D) because:"
+	      (frob "unable to do ~A (cost ~W) because:"
 		    (or (template-note loser) (template-name loser))
 		    (template-cost loser))
 	      (cond
@@ -831,7 +831,7 @@
 	(let ((*compiler-error-context* call))
 	  (compiler-note "~{~?~^~&~6T~}"
 			 (if template
-			     `("forced to do ~A (cost ~D)"
+			     `("forced to do ~A (cost ~W)"
 			       (,(or (template-note template)
 				     (template-name template))
 				,(template-cost template))