X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=8f680386f758ba556ec3d8783b16d17746a2e1bb;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=c530557da07a0ca5a4aa9039aab3db006db99072;hpb=ba4555ae4fdbbdac69c798f4210472f10aea583c;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index c530557..8f68038 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.)
@@ -2023,18 +2023,3 @@
 	    (specifier-type 'function))))
 
   (values))
-
-;;;; hacking function names
-
-;;; This is like LAMBDA, except the result is tweaked so that FUN-NAME
-;;; can extract a name. (Also possibly the name could also be used at
-;;; compile time to emit more-informative name-based compiler
-;;; diagnostic messages as well.)
-(defmacro-mundanely named-lambda (name args &body body)
-
-  ;; FIXME: For now, in this stub version, we just discard the name. A
-  ;; non-stub version might use either macro-level LOAD-TIME-VALUE
-  ;; hackery or customized IR1-transform level magic to actually put
-  ;; the name in place.
-  (aver (legal-fun-name-p name))
-  `(lambda ,args ,@body))