X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Facl-compat-tester.cl;h=84e8d578a9ef15a404256f5b2042ea907be1d3dd;hb=7523905053e1fd44e5cbef67332a3fb00d35e848;hp=9124c4a2829189af2ae50b4e3632508c3dc744e2;hpb=a0e2d3a48c64e9a907abe07b6f89dc6acda6efb5;p=uffi.git

diff --git a/tests/acl-compat-tester.cl b/tests/acl-compat-tester.cl
index 9124c4a..84e8d57 100644
--- a/tests/acl-compat-tester.cl
+++ b/tests/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/07/26 03:24:29 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) ()))
 
@@ -398,17 +399,17 @@ discriminate on new versus known failures."
   (if catch-breaks
       `(handler-case (values-list (cons t (multiple-value-list ,form)))
          (error (condition)
-           (declare (ignore-if-unused condition))
+           (declare (ignorable condition))
            ,@(if announce `((format *error-output* "~&Error: ~a~%" condition)))
            nil)
          (simple-break (condition)
-           (declare (ignore-if-unused condition))
+           (declare (ignorable condition))
            ,@(if announce `((format *error-output* "~&Warning: ~a~%" condition))
 )
            nil))
     `(handler-case (values-list (cons t (multiple-value-list ,form)))
        (error (condition)
-         (declare (ignore-if-unused condition))
+         (declare (ignorable condition))
          ,@(if announce `((format *error-output* "~&Error: ~a~%" condition)))
          nil))))