X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=acl-compat-tester.cl;h=4f9c447e03536f16f641185e73ba24746b8f541e;hb=43a09c901590a99761fe6a416c7144063e2b75f4;hp=b75ab6ddcbf494c344718245d0f6a879379003e6;hpb=29dc3a388a41590a7fda00cb6b606ffe03b3c3d6;p=uffi.git

diff --git a/acl-compat-tester.cl b/acl-compat-tester.cl
index b75ab6d..4f9c447 100644
--- 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:
 ;;