0.8.0.33

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

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 8d6f1bb..ddca38e 100644 (file)
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -550,6 +550,10 @@
                           (when (and functional
                                      (not (functional-kind functional)))
                             (maybe-reanalyze-functional functional))))
+                   (when (and (lambda-p leaf)
+                              (memq (functional-kind leaf)
+                                    '(nil :optional)))
+                     (maybe-reanalyze-functional leaf))
                    leaf))
          (ref (make-ref leaf)))
     (push ref (leaf-refs leaf))