1.0.32.33: GENCGC tuning parameters

[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))))
-          (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))