(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*