(compiler-error "multiple &AUX in lambda list: ~S" list))
(setq auxp t
state :aux))
- (t
- ;; It could be argued that &WHOLE and friends would be just ordinary
- ;; variables in an ordinary lambda-list, but since (1) it seem exceedingly
- ;; unlikely that that was that the programmer actually ment (2) the spec
- ;; can be interpreted as giving as licence to signal an error[*] we do.
+ (t
+ ;; It could be argued that &WHOLE and friends would be
+ ;; just ordinary variables in an ordinary lambda-list,
+ ;; but since (1) that seem exceedingly to have been the
+ ;; programmers intent and (2) the spec can be
+ ;; interpreted as giving as licence to signal an
+ ;; error[*] that is what we do.
;;
;; [* All lambda list keywords used in the
;; implementation appear in LAMBDA-LIST-KEYWORDS. Each
(multiple-value-bind (required optional restp rest keyp keys allowp auxp aux
morep more-context more-count)
(parse-lambda-list-like-thing lambda-list)
-
+
;; Check validity of parameters.
(flet ((need-symbol (x why)
(unless (symbolp x)