0.pre7.126:

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

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index fb87aa5..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))
@@ -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))