+ (when (or key-seen aux-seen restp)
+ (error "~A after ~A in ~A lambda-list." var (or key-seen aux-seen restp) context))
+ (when optional-seen
+ (error "Multiple ~A in ~A lambda list." var context))
+ (setq now-processing :optionals
+ optional-seen var))