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

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 107e9ae..b6da50b 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)))
@@ -391,8 +392,8 @@
           (cond (losing-local-functional
                  (let ((*compiler-error-context* call))
                    (compiler-notify "couldn't inline expand because expansion ~
-		                   calls this LET-converted local function:~
-		                   ~%  ~S"
+                                     calls this LET-converted local function:~
+                                     ~%  ~S"
                                     (leaf-debug-name losing-local-functional)))
                  (loop for block = (block-next pred) then (block-next block)
                        until (eq block end)
@@ -626,8 +627,7 @@
       (when (optional-dispatch-keyp fun)
 	(when (oddp (length more))
 	  (compiler-warn "function called with odd number of ~
-  		          arguments in keyword portion")
-
+                          arguments in keyword portion")
 	  (setf (basic-combination-kind call) :error)
 	  (return-from convert-more-call))