X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=e5bbc97317b5a812f4dba2c3c186c35056e89071;hb=53f4147704fbe48c03dd73d7b6a9f92c0a066ed8;hp=107e9aee71e82be781c73c2ba1481ff7b78afece;hpb=8902b8b6bd2e9285749dd39d313b33b6c69c5213;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 107e9ae..e5bbc97 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -47,7 +47,8 @@
   (declare (type combination call) (type clambda fun))
   (loop for arg in (basic-combination-args call)
         and var in (lambda-vars fun)
-        when (and (lambda-var-dynamic-extent var)
+        when (and arg
+                  (lambda-var-dynamic-extent var)
                   (not (lvar-dynamic-extent arg)))
         collect arg into dx-lvars
         and do (let ((use (lvar-uses arg)))