X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Facl-compat-tester.cl;h=cfb095e7f03b74845aeddc59afe20e63be44cfc5;hb=e17a00289f90e820823ae17546eb5374e8f056e0;hp=9124c4a2829189af2ae50b4e3632508c3dc744e2;hpb=42959dafb9978c35da14915bc078fb96c1183347;p=uffi.git

diff --git a/tests/acl-compat-tester.cl b/tests/acl-compat-tester.cl
index 9124c4a..cfb095e 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.2 2002/09/20 04:51:14 kevin Exp $
 
 
 (defpackage :util.test
@@ -398,17 +398,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))))