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

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index 66fd31b..a6a7480 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>")