- (!printing-defmacro-lambda-list-bind-error (condition stream)
- (format stream
- ;; FIXME: These should probably just be three
- ;; subclasses of the base class, so that we don't
- ;; need to maintain the set of tags both here and
- ;; implicitly wherever this macro is used. (This
- ;; might get easier once CLOS is initialized in
- ;; cold init.)
- (ecase
- (defmacro-lambda-list-broken-key-list-error-problem
- condition)
- (:dotted-list
- "dotted keyword/value list: ~S")
- (:odd-length
- "odd number of elements in keyword/value list: ~S")
- (:unknown-keyword
- "~{unknown keyword: ~S; expected one of ~
+ (!printing-defmacro-lambda-list-bind-error (condition stream)
+ (format stream
+ ;; FIXME: These should probably just be three
+ ;; subclasses of the base class, so that we don't
+ ;; need to maintain the set of tags both here and
+ ;; implicitly wherever this macro is used. (This
+ ;; might get easier once CLOS is initialized in
+ ;; cold init.)
+ (ecase
+ (defmacro-lambda-list-broken-key-list-error-problem
+ condition)
+ (:dotted-list
+ "dotted keyword/value list: ~S")
+ (:odd-length
+ "odd number of elements in keyword/value list: ~S")
+ (:unknown-keyword
+ "~{unknown keyword: ~S; expected one of ~