;; 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
(in-package :util.test)
+#+cmu
(unless (find-class 'break nil)
(define-condition break (simple-condition) ()))
(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))))