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