projects
/
xptest.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4097: Auto commit for Debian build
[xptest.git]
/
xptestsuite.lisp
diff --git
a/xptestsuite.lisp
b/xptestsuite.lisp
index 0ac9f4964ea047dd6326a826c30cc79eb1f7a6b0..238b4bf91a0d1ffe543a1c8cc7c98f15464d3c16 100644
(file)
--- a/
xptestsuite.lisp
+++ b/
xptestsuite.lisp
@@
-7,7
+7,7
@@
;;;; Author: Craig Brozefsky <craig@onshore.com>
;;;; Put in public domain by onShore, Inc
;;;;
;;;; Author: Craig Brozefsky <craig@onshore.com>
;;;; Put in public domain by onShore, Inc
;;;;
-;;;; $Id: xptestsuite.lisp,v 1.
1 2002/10/22 18:46:20
kevin Exp $
+;;;; $Id: xptestsuite.lisp,v 1.
2 2003/02/23 05:51:55
kevin Exp $
(in-package :xp-test)
(in-package :xp-test)
@@
-48,8
+48,8
@@
setup method did for this instance."
(defun failure (format-str &rest args)
"Signal a test failure and exit the test."
(signal 'test-failure
(defun failure (format-str &rest args)
"Signal a test failure and exit the test."
(signal 'test-failure
- #+(or cmu allegro) :format-control
- #-(or cmu allegro) :format-string
+ #+(or cmu allegro
openmcl
) :format-control
+ #-(or cmu allegro
openmcl
) :format-string
format-str
:format-arguments args))
format-str
:format-arguments args))