X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=aa84315a06280270f1c50bd64944f42e0ca50b84;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=b274db3ff340cfbcee3891805ff0afaa78d44267;hpb=b3c5951a9d24468a2a471fd6769d0e6b687c08f3;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index b274db3..aa84315 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -472,13 +472,13 @@
   (declare (type ref ref) (type mv-combination call) (type functional fun))
   (when (and (looks-like-an-mv-bind fun)
              (singleton-p (leaf-refs fun))
-             (singleton-p (basic-combination-args call)))
+             (singleton-p (basic-combination-args call))
+             (not (functional-entry-fun fun)))
     (let* ((*current-component* (node-component ref))
            (ep (optional-dispatch-entry-point-fun
                 fun (optional-dispatch-max-args fun))))
       (when (null (leaf-refs ep))
         (aver (= (optional-dispatch-min-args fun) 0))
-        (aver (not (functional-entry-fun fun)))
         (setf (basic-combination-kind call) :local)
         (sset-adjoin ep (lambda-calls-or-closes (node-home-lambda call)))
         (merge-tail-sets call ep)