0.8.16.26:

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

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 107e9ae..b6da50b 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)))
@@ -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))