X-Git-Url: http://git.kpe.io/?p=ptester.git;a=blobdiff_plain;f=tester.cl;h=9218eac2ba7a070a240cb1321c7b02b5a3325343;hp=ebdca7131b20d1b7a761f772ff487c11e67e0596;hb=1f88c89d8d2dae56a47efd19ed6d96b5e823d224;hpb=88196aa149fe55745e8913208dabf85a47f8ad73

diff --git a/tester.cl b/tester.cl
index ebdca71..9218eac 100644
--- a/tester.cl
+++ b/tester.cl
@@ -26,10 +26,10 @@
 ;;;; from the original ACL 6.1 sources:
 ;; Id: tester.cl,v 2.2.12.1 2001/06/05 18:45:10 layer Exp
 
-;; $Id: tester.cl,v 1.1 2002/09/20 07:34:06 kevin Exp $
+;; $Id: tester.cl,v 1.2 2002/09/20 07:55:56 kevin Exp $
 
 (defpackage :util.test
-  (:use :common-lisp :excl)
+  (:use :common-lisp)
   (:shadow #:test)
   (:export
 ;;;; Control variables:
@@ -64,7 +64,8 @@
 ;; This is in the public domain... please feel free to put this definition
 ;; in your code or distribute it with your version of lisp.
 
-(defvar if*-keyword-list '("then" "thenret" "else" "elseif"))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defvar if*-keyword-list '("then" "thenret" "else" "elseif")))
 
 (defmacro if* (&rest args)
    (do ((xx (reverse args) (cdr xx))
@@ -555,6 +556,7 @@ Reason: the format-arguments were incorrect.~%")
 		      "~
 ~&Test ~a aborted by signalling an uncaught error:~%~a~%"
 		      ,g-name c))))
+	 #+allegro
 	 (let ((state (sys:gsgc-switch :print)))
 	   (setf (sys:gsgc-switch :print) nil)
 	   (format t "~&**********************************~%" ,g-name)
@@ -563,6 +565,14 @@ Reason: the format-arguments were incorrect.~%")
 	   (unless (zerop *test-unexpected-failures*)
 	     (format t "UNEXPECTED: ~s" *test-unexpected-failures*))
 	   (format t "~%Successes this test:~s~%" *test-successes*)
-	   (setf (sys:gsgc-switch :print) state))))))
+	   (setf (sys:gsgc-switch :print) state))
+	 #-allegro
+	 (progn
+	   (format t "~&**********************************~%" ,g-name)
+	   (format t "End ~a test~%" ,g-name)
+	   (format t "Errors detected in this test: ~s " *test-errors*)
+	   (unless (zerop *test-unexpected-failures*)
+	     (format t "UNEXPECTED: ~s" *test-unexpected-failures*))
+	   (format t "~%Successes this test:~s~%" *test-successes*))))))
 
 (provide :tester #+module-versions 1.1)