;;;; 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)
(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))