NJF DOLIST/MACROLET patch for vmtran (sbcl-devel 2002-01-07,

[sbcl.git] / src / compiler / represent.lisp

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index 66fd31b..77fafae 100644 (file)
--- 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))