X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Facl-compat-tester.cl;h=84e8d578a9ef15a404256f5b2042ea907be1d3dd;hb=687abce42637479af041f074ebd887c6269f45b9;hp=cfb095e7f03b74845aeddc59afe20e63be44cfc5;hpb=e17a00289f90e820823ae17546eb5374e8f056e0;p=uffi.git diff --git a/examples/acl-compat-tester.cl b/examples/acl-compat-tester.cl index cfb095e..84e8d57 100644 --- a/examples/acl-compat-tester.cl +++ b/examples/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.2 2002/09/20 04:51:14 kevin Exp $ +;; $Id: acl-compat-tester.cl,v 1.3 2002/09/20 05:38:01 kevin Exp $ (defpackage :util.test @@ -50,6 +50,7 @@ (in-package :util.test) +#+cmu (unless (find-class 'break nil) (define-condition break (simple-condition) ()))