- (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)))))))
+ (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 ~a found"
+ (if (null (cdr (last (arg-count-error-args condition))))
+ (length (arg-count-error-args condition))
+ "not a proper list"))))))