X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=src.lisp;h=ac3ffb20e0cfde24d0eb9920a2a220cd3e77bb5b;hb=41ca44bc1c65e6e2b2a92be6b96ba674acc65c92;hp=3c197bfa347a5132170c90e6d07fb93bf8b11224;hpb=20825c7e1b5f0a878f77a28c1a77d25bfb6c114f;p=ptester.git

diff --git a/src.lisp b/src.lisp
index 3c197bf..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.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)