- (format stream "Description: ~A~%" (description (result-test result)))
- (if (test-failures result)
- (progn
- (format stream "Failures:~%")
- (mapcar #'(lambda (fail) (format stream " ~A" fail))
- (test-failures result))))
- (if (test-errors result)
- (progn
- (format stream "Errors:~%")
- (mapcar #'(lambda (fail) (format stream " ~A" fail))
- (test-errors result))))))
- ;(format stream "~%~%") ; debian bug #190398
+ (format stream "Description: ~A~%" (description (result-test result)))
+ (if (test-failures result)
+ (progn
+ (format stream "Failures:~%")
+ (mapcar #'(lambda (fail) (format stream " ~A" fail))
+ (test-failures result))))
+ (if (test-errors result)
+ (progn
+ (format stream "Errors:~%")
+ (mapcar #'(lambda (fail) (format stream " ~A" fail))
+ (test-errors result))))))
+ ;(format stream "~%~%") ; debian bug #190398