projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2784: *** empty log message ***
[uffi.git]
/
tests
/
acl-compat-tester.cl
diff --git
a/tests/acl-compat-tester.cl
b/tests/acl-compat-tester.cl
index 9124c4a2829189af2ae50b4e3632508c3dc744e2..cfb095e7f03b74845aeddc59afe20e63be44cfc5 100644
(file)
--- 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:
;; 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
(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)
(if catch-breaks
`(handler-case (values-list (cons t (multiple-value-list ,form)))
(error (condition)
- (declare (ignor
e-if-unused
condition))
+ (declare (ignor
able
condition))
,@(if announce `((format *error-output* "~&Error: ~a~%" condition)))
nil)
(simple-break (condition)
,@(if announce `((format *error-output* "~&Error: ~a~%" condition)))
nil)
(simple-break (condition)
- (declare (ignor
e-if-unused
condition))
+ (declare (ignor
able
condition))
,@(if announce `((format *error-output* "~&Warning: ~a~%" condition))
)
nil))
`(handler-case (values-list (cons t (multiple-value-list ,form)))
(error (condition)
,@(if announce `((format *error-output* "~&Warning: ~a~%" condition))
)
nil))
`(handler-case (values-list (cons t (multiple-value-list ,form)))
(error (condition)
- (declare (ignor
e-if-unused
condition))
+ (declare (ignor
able
condition))
,@(if announce `((format *error-output* "~&Error: ~a~%" condition)))
nil))))
,@(if announce `((format *error-output* "~&Error: ~a~%" condition)))
nil))))