projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
t)))
(frob lambda)
(when tails
- (dolist (fun (tail-set-functions tails))
+ (dolist (fun (tail-set-funs tails))
(frob fun))))))
(values))
(frob fun))))))
(values))
@@
-370,12
+370,12
@@
(vop-results op-vop)))
(error "couldn't find op? bug!")))))
(compiler-note
(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
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))
note cost (get-operand-name op-tn t)
(get-operand-name dest-tn nil)))))
(values))