projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2885: *** 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..84e8d578a9ef15a404256f5b2042ea907be1d3dd 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.
3 2002/09/20 05:38:01
kevin Exp $
(defpackage :util.test
(defpackage :util.test
@@
-50,6
+50,7
@@
(in-package :util.test)
(in-package :util.test)
+#+cmu
(unless (find-class 'break nil)
(define-condition break (simple-condition) ()))
(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)
(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))))