X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=8f680386f758ba556ec3d8783b16d17746a2e1bb;hb=683874b497a99cd2c11b6c5d9b47e2785b1ede5f;hp=61b9a74b1d0fb4f04f989f6229669640b2102b99;hpb=177cea359afa4b73abf43ce687aa34e47be9538a;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 61b9a74..8f68038 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -524,8 +524,9 @@
     (etypecase var
       (leaf
        (when (lambda-var-p var)
-	 (pushnew var
-		  (lambda-refers-to-vars (continuation-home-lambda start)))
+	 (let ((home (continuation-home-lambda-or-null start)))
+	   (when 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.)
@@ -556,8 +557,8 @@
 	  (t
 	   (ir1-convert-global-functoid-no-cmacro start cont form fun)))))
 
-;;; Handle the case of where the call was not a compiler macro, or was a
-;;; compiler macro and passed.
+;;; Handle the case of where the call was not a compiler macro, or was
+;;; a compiler macro and passed.
 (defun ir1-convert-global-functoid-no-cmacro (start cont form fun)
   (declare (type continuation start cont) (list form))
   ;; FIXME: Couldn't all the INFO calls here be converted into
@@ -675,7 +676,8 @@
 	      (return))
 	    (let ((this-cont (make-continuation)))
 	      (ir1-convert this-start this-cont form)
-	      (setq this-start this-cont  forms (cdr forms)))))))
+	      (setq this-start this-cont
+		    forms (cdr forms)))))))
   (values))
 
 ;;;; converting combinations
@@ -2021,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))