(not (equalp-with-case r (vals entry)))))
(when (pend entry)
- (let ((*print-circle* *print-circle-on-failure*)
- (*print-escape* nil))
+ (let ((*print-circle* *print-circle-on-failure*))
(format s "~&Test ~:@(~S~) failed~
~%Form: ~S~
~%Expected value~P: ~
~:@(~{~<~% ~1:;~S~>~
~^, ~}~)."
(length new-failures)
- new-failures)))
- ))
+ new-failures)))))
(finish-output s)
- (null pending))))
+ (values (null new-failures) (null pending) pending))))