projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.4
[sbcl.git]
/
src
/
compiler
/
physenvanal.lisp
diff --git
a/src/compiler/physenvanal.lisp
b/src/compiler/physenvanal.lisp
index
2ded900
..
8b4bb25
100644
(file)
--- a/
src/compiler/physenvanal.lisp
+++ b/
src/compiler/physenvanal.lisp
@@
-419,9
+419,7
@@
(when ret
(let ((result (return-result ret)))
(do-uses (use result)
(when ret
(let ((result (return-result ret)))
(do-uses (use result)
- (when (and (policy use
- (or (> space debug)
- (> speed debug)))
+ (when (and (policy use merge-tail-calls)
(immediately-used-p result use)
(or (not (eq (node-derived-type use) *empty-type*))
(not (basic-combination-p use))
(immediately-used-p result use)
(or (not (eq (node-derived-type use) *empty-type*))
(not (basic-combination-p use))