0.pre7.86.flaky7.24:

[sbcl.git] / src / compiler / ir1-translators.lisp

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index 4d71fe5..8b0f852 100644 (file)
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -755,7 +755,7 @@
             (when (lambda-var-p leaf)
               (let ((home-lambda (continuation-home-lambda-or-null start)))
                 (when home-lambda
-                  (pushnew leaf (lambda-refers-to-vars home-lambda))))
+                  (pushnew leaf (lambda-calls-or-closes home-lambda))))
               (when (lambda-var-ignorep leaf)
                 ;; ANSI's definition of "Declaration IGNORE, IGNORABLE"
                 ;; requires that this be a STYLE-WARNING, not a full warning.