X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Frepresent.lisp;h=77fafaef3e1405e55eb654f103e1884190952fff;hb=4ad052044a22f502d9dc6faf6dfe01f3bab84262;hp=66fd31b8d59b411931b97211e4a304e4e2ff4f93;hpb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index 66fd31b..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))
@@ -336,7 +336,7 @@
   (let* ((actual (if (eq (tn-kind tn) :alias) (tn-save-tn tn) tn))
 	 (reads (tn-reads tn))
 	 (leaf (tn-leaf actual)))
-    (cond ((lambda-var-p leaf) (leaf-name leaf))
+    (cond ((lambda-var-p leaf) (leaf-source-name leaf))
 	  ((and (not arg-p) reads
 		(return-p (vop-node (tn-ref-vop reads))))
 	   "<return value>")
@@ -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))