From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 23 Feb 2003 05:51:55 +0000 (+0000)
Subject: r4097: Auto commit for Debian build
X-Git-Tag: debian-1.2.3-2~16
X-Git-Url: http://git.kpe.io/?p=xptest.git;a=commitdiff_plain;h=9bae7485134afc50fae8fa2d3e5896673869079b

r4097: Auto commit for Debian build
---

diff --git a/debian/changelog b/debian/changelog
index f5b5956..48dbe88 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-xptest (1.1.1-3) unstable; urgency=low
+
+  * Use format-control for openmcl (closes: 182112) 
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sat, 22 Feb 2003 22:51:37 -0700
+
 cl-xptest (1.1-2) unstable; urgency=low
 
   * Remove 'load-compiled-op from .asd file
diff --git a/xptestsuite.lisp b/xptestsuite.lisp
index 0ac9f49..238b4bf 100644
--- 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))