X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=950f3c7dddbf48ec09c81b3f98c8f5501e6f62e8;hb=863d1c0c3314d9002e511e9f98c00d9f0f9bfa78;hp=c530557da07a0ca5a4aa9039aab3db006db99072;hpb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index c530557..950f3c7 100644
--- 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.)