0.8.14.20: Documentation madness, yet again

[sbcl.git] / src / compiler / locall.lisp

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 107e9ae..e5bbc97 100644 (file)
--- 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)))