0.pre7.86.flaky7.24:

[sbcl.git] / src / compiler / ir1tran.lisp

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index c530557..950f3c7 100644 (file)
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -526,7 +526,7 @@
        (when (lambda-var-p var)
         (let ((home (continuation-home-lambda-or-null start)))
           (when home
-            (pushnew var (lambda-refers-to-vars home))))
+            (pushnew var (lambda-calls-or-closes home))))
         (when (lambda-var-ignorep var)
           ;; (ANSI's specification for the IGNORE declaration requires
           ;; that this be a STYLE-WARNING, not a full WARNING.)