X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fctype.lisp;h=23cc3ce691f7fe98ecb708701890dccfdc215c98;hb=5745b5a5b2e3b967bf3876b4306f31b3c78495fa;hp=f8539973fabbf8d47ed3c6a52a79bd30e2db98f1;hpb=a28478f4f22bf6753eb18c44d5205726f87a0ead;p=sbcl.git

diff --git a/src/compiler/ctype.lisp b/src/compiler/ctype.lisp
index f853997..23cc3ce 100644
--- a/src/compiler/ctype.lisp
+++ b/src/compiler/ctype.lisp
@@ -796,7 +796,8 @@
            (optional-dispatch-p fun)
            (optional-dispatch-keyp fun)
            (optional-dispatch-more-entry fun)
-           (not (fun-type-rest type)))
+           (not (or (fun-type-rest type)
+                    (fun-type-wild-args type))))
       (make-fun-type :required (fun-type-required type)
                      :optional (fun-type-optional type)
                      :rest *universal-type*