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
 ;;;;
-;;;; $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)
 
@@ -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
-         #+(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))