From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 20 Jul 2003 19:00:44 +0000 (+0000)
Subject: r5348: *** empty log message ***
X-Git-Url: http://git.kpe.io/?p=ptester.git;a=commitdiff_plain;h=41ca44bc1c65e6e2b2a92be6b96ba674acc65c92

r5348: *** empty log message ***
---

diff --git a/src.lisp b/src.lisp
index e659c90..ac3ffb2 100644
--- a/src.lisp
+++ b/src.lisp
@@ -27,7 +27,7 @@
 ;;;; from the original ACL 6.1 sources:
 ;; Id: tester.cl,v 2.2.12.1 2001/06/05 18:45:10 layer Exp
 
-;; $Id: src.lisp,v 1.2 2003/07/20 18:56:28 kevin Exp $
+;; $Id: src.lisp,v 1.3 2003/07/20 19:00:44 kevin Exp $
 
 (defpackage #:ptester
   (:use #:cl)
@@ -458,18 +458,22 @@ discriminate on new versus known failures."
 	    (if* (eq 'single-got-multiple fail)
 	       then (format
 		     *error-output*
-		     "Reason: additional value were returned from test form.~%")
+		     "~
+Reason: additional value were returned from test form.~%")
 	     elseif predicate-failed
 	       then (format *error-output* "Reason: predicate error.~%")
 	     elseif (null (car test-results))
-	       then (format *error-output* "Reason: an error~@[ (of type `~s')~] was detected.~%"
+	       then (format *error-output* "~
+Reason: an error~@[ (of type `~s')~] was detected.~%"
 			    (when condition (class-of condition)))
 	     elseif condition
 	       then (if* (not (conditionp condition))
-		       then (format *error-output* "Reason: expected but did not detect an error of type `~s'.~%"
+		       then (format *error-output* "~
+Reason: expected but did not detect an error of type `~s'.~%"
 				    condition-type)
 		     elseif (null condition-type)
-		       then (format *error-output* "Reason: detected an unexpected error of type `~s':
+		       then (format *error-output* "~
+Reason: detected an unexpected error of type `~s':
         ~a.~%"
 				    (class-of condition)
 				    condition)
@@ -477,7 +481,8 @@ discriminate on new versus known failures."
 				    then (typep condition condition-type)
 				    else (eq (class-of condition)
 					     (find-class condition-type))))
-		       then (format *error-output* "Reason: detected an incorrect condition type.~%")
+		       then (format *error-output* "~
+Reason: detected an incorrect condition type.~%")
 			    (format *error-output*
 				    "  wanted: ~s~%" condition-type)
 			    (format *error-output*
@@ -491,7 +496,8 @@ discriminate on new versus known failures."
 					 (simple-condition-format-control
 					  condition)))))
 		       then ;; format control doesn't match
-			    (format *error-output* "Reason: the format-control was incorrect.~%")
+			    (format *error-output* "~
+Reason: the format-control was incorrect.~%")
 			    (format *error-output* "  wanted: ~s~%" wanted)
 			    (format *error-output* "     got: ~s~%" got)
 		     elseif (and format-arguments
@@ -500,7 +506,8 @@ discriminate on new versus known failures."
 				       (setq wanted
 					 (simple-condition-format-arguments
 					  condition)))))
-		       then (format *error-output* "Reason: the format-arguments were incorrect.~%")
+		       then (format *error-output* "~
+Reason: the format-arguments were incorrect.~%")
 			    (format *error-output* "  wanted: ~s~%" wanted)
 			    (format *error-output* "     got: ~s~%" got)
 		       else ;; what else????
@@ -557,7 +564,8 @@ discriminate on new versus known failures."
 		     (error (c)
 		       (format
 			*error-output*
-			"~&Test ~a aborted by signalling an uncaught error:~%~a~%"
+			"~
+~&Test ~a aborted by signalling an uncaught error:~%~a~%"
 			,g-name c))))
 	 #+allegro
 	 (let ((state (sys:gsgc-switch :print)))