-(cond
- ((= *passed-tests* *total-tests*)
- (write-line "All the tests (")
- (write-string (prin1-to-string *total-tests*))
- (write-line ") passed successfully."))
- (t
- (write-string (prin1-to-string *passed-tests*))
- (write-string "/")
- (write-string (prin1-to-string *total-tests*))
- (write-line " test(s) passed successfully.")))
+(if (= *passed-tests* *total-tests*)
+ (format t "All the tests (~a) passed successfully.~%" *total-tests*)
+ (format t "~a/~a test(s) passed successfully.~%" *passed-tests* *total-tests*))