r2784: *** empty log message ***

[uffi.git] / examples / acl-compat-tester.cl

diff --git a/examples/acl-compat-tester.cl b/examples/acl-compat-tester.cl
index 9124c4a2829189af2ae50b4e3632508c3dc744e2..cfb095e7f03b74845aeddc59afe20e63be44cfc5 100644 (file)
--- 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.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))))