projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1876: *** 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:
;; 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
(defpackage :util.test
@@
-50,7
+50,10
@@
(in-package :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:
;;
;; the if* macro used in Allegro:
;;