projects
/
ptester.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;;;; 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)
(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))))
,@(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)
(defmethod conditionp ((thing condition)) t)
(defmethod conditionp ((thing t)) nil)