-cl-tester (2.2.12.2.6.1-1) unstable; urgency=low
+cl-tester (1.1-1) unstable; urgency=low
- * Initial Release (closes: )
+ * Initial Release (closes: 161614)
-- Kevin M. Rosenberg <kmr@debian.org> Fri, 20 Sep 2002 01:08:33 -0600
Changes compared to upstream:
- Added .asd file for use with Common Lisp Controller
- Defined condition SIMPLE-BREAK and BREAK for CMU
- - Include if* source in the tester.cl file
+ - Include if* source in the tester.cl file, remove dependency on excl package
+ - Modify WITH-TEST so it does not depend on (sys:gsgc-switch :print) form
+
Copyright:
;;;; 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:
;; 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))
"~
~&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)
(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)