X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=ddca38e14580f03a156c1bc7b57ffe13f5f18668;hb=65f551e30f6f52855fdb7ff28e0cfff2f17c3e48;hp=8d6f1bb12b46e4835d35d48aeafd45db96b23f8b;hpb=77c80b85dc9ae9bde0692d4193187bfca507b936;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 8d6f1bb..ddca38e 100644
--- 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))