- (print-defmacro-ll-bind-error-intro condition stream)
- (format stream
- "invalid number of elements in:~% ~:S~%~
- 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)))
- (t
- (format stream "between ~W and ~W expected"
- (arg-count-error-minimum condition)
- (arg-count-error-maximum condition))))
- (format stream ", but ~W found"
- (length (arg-count-error-argument condition))))))
+ (!printing-defmacro-lambda-list-bind-error (condition stream)
+ (format stream
+ "invalid number of elements in ~2I~_~:S ~
+ ~I~_to satisfy lambda list ~2I~_~:S: ~I~_"
+ (arg-count-error-args 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)))
+ (t
+ (format stream "between ~W and ~W expected"
+ (arg-count-error-minimum condition)
+ (arg-count-error-maximum condition))))
+ (format stream ", but ~W found"
+ (length (arg-count-error-args condition)))))))