r5348: *** empty log message ***

[ptester.git] / src.lisp

diff --git a/src.lisp b/src.lisp
index 3c197bfa347a5132170c90e6d07fb93bf8b11224..ac3ffb20e0cfde24d0eb9920a2a220cd3e77bb5b 100644 (file)
--- 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.1 2003/07/20 18:10:22 kevin Exp $
+;; $Id: src.lisp,v 1.3 2003/07/20 19:00:44 kevin Exp $
 
 (defpackage #:ptester
   (:use #:cl)
@@ -204,6 +204,7 @@ discriminate on new versus known failures."
     ,@(when wanted-message-given `(:wanted-message ,wanted-message))
     ,@(when got-message-given `(:got-message ,got-message))))
 
+(defgeneric conditionp (thing) )
 (defmethod conditionp ((thing condition)) t)
 (defmethod conditionp ((thing t)) nil)