X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=bc93706717157f007ad3bef0f3e34aa31c6e3b9d;hb=dcf8b8ccc1e15a5c1c6aba00204b7d3a81827acc;hp=ee3b1e34d215757d463c25622a55d1ce3c3412b8;hpb=1840d888d2ef13fe0ea5aaa06f1fef3300da682b;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index ee3b1e3..bc93706 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -355,8 +355,7 @@
   (loop
    (let ((did-something nil))
      (dolist (clambda clambdas)
-       (let* ((component (lambda-component clambda))
-              (*all-components* (list component)))
+       (let ((component (lambda-component clambda)))
          ;; The original CMU CL code seemed to implicitly assume that
          ;; COMPONENT is the only one here. Let's make that explicit.
          (aver (= 1 (length (functional-components clambda))))