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

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index fb87aa5..77fafae 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -323,7 +323,7 @@
 		     t)))
 	(frob lambda)
 	(when tails
-	  (dolist (fun (tail-set-functions tails))
+	  (dolist (fun (tail-set-funs tails))
 	    (frob fun))))))
 
   (values))
@@ -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))