- to satisfy lambda-list:~% ~:S~%"
- (defmacro-ll-arg-count-error-argument condition)
- (defmacro-ll-arg-count-error-lambda-list condition))
- (cond ((null (defmacro-ll-arg-count-error-maximum condition))
- (format stream "at least ~D expected"
- (defmacro-ll-arg-count-error-minimum condition)))
- ((= (defmacro-ll-arg-count-error-minimum condition)
- (defmacro-ll-arg-count-error-maximum condition))
- (format stream "exactly ~D expected"
- (defmacro-ll-arg-count-error-minimum condition)))
+ to satisfy lambda list:~% ~:S~%"
+ (arg-count-error-argument condition)
+ (arg-count-error-lambda-list condition))
+ (cond ((null (arg-count-error-maximum condition))
+ (format stream "at least ~W expected"
+ (arg-count-error-minimum condition)))
+ ((= (arg-count-error-minimum condition)
+ (arg-count-error-maximum condition))
+ (format stream "exactly ~W expected"
+ (arg-count-error-minimum condition)))