r1724: *** empty log message ***

[uffi.git] / acl-compat-tester.cl

diff --git a/acl-compat-tester.cl b/acl-compat-tester.cl
index b75ab6ddcbf494c344718245d0f6a879379003e6..4f9c447e03536f16f641185e73ba24746b8f541e 100644 (file)
--- a/acl-compat-tester.cl
+++ b/acl-compat-tester.cl
@@ -24,7 +24,7 @@
 ;; Place, Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;;; from the original ACL 6.1 sources:
-;; $Id: acl-compat-tester.cl,v 1.1 2002/04/02 21:29:45 kevin Exp $
+;; $Id: acl-compat-tester.cl,v 1.2 2002/04/03 00:31:32 kevin Exp $
 
 
 (defpackage :util.test
@@ -50,7 +50,10 @@
 
 (in-package :util.test)
 
-(define-condition simple-break (break simple-condition) ())
+(unless (find-class 'break nil)
+  (define-condition break (simple-condition) ()))
+
+(define-condition simple-break (error simple-condition) ())
 
 ;; the if* macro used in Allegro:
 ;;