projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.5.35: stack alignment on x86/Darwin, once more
[sbcl.git]
/
src
/
compiler
/
dfo.lisp
diff --git
a/src/compiler/dfo.lisp
b/src/compiler/dfo.lisp
index
763d929
..
28c53e3
100644
(file)
--- a/
src/compiler/dfo.lisp
+++ b/
src/compiler/dfo.lisp
@@
-290,7
+290,7
@@
(declare (type entry entry))
(let ((entry-home (node-home-lambda entry)))
(scavenge-possibly-deleted-lambda entry-home))))
(declare (type entry entry))
(let ((entry-home (node-home-lambda entry)))
(scavenge-possibly-deleted-lambda entry-home))))
- (dolist (cc (lambda-calls-or-closes clambda))
+ (do-sset-elements (cc (lambda-calls-or-closes clambda))
(etypecase cc
(clambda (scavenge-call cc))
(lambda-var (scavenge-closure-var cc))
(etypecase cc
(clambda (scavenge-call cc))
(lambda-var (scavenge-closure-var cc))