projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9d5be5e
)
Silence some unused variable warnings in tests/condition.[im]pure.lisp
author
Jan Moringen
<jmoringe@techfak.uni-bielefeld.de>
Sat, 23 Mar 2013 12:04:35 +0000
(13:04 +0100)
committer
Christophe Rhodes
<c.rhodes@gold.ac.uk>
Tue, 22 Oct 2013 10:30:20 +0000
(11:30 +0100)
tests/condition.pure.lisp
patch
|
blob
|
history
diff --git
a/tests/condition.pure.lisp
b/tests/condition.pure.lisp
index
88fba5b
..
0430800
100644
(file)
--- a/
tests/condition.pure.lisp
+++ b/
tests/condition.pure.lisp
@@
-51,6
+51,7
@@
(foo2 (make-condition 'error)))
(handler-bind
((error (lambda (c)
(foo2 (make-condition 'error)))
(handler-bind
((error (lambda (c)
+ (declare (ignore c))
(let ((restarts (remove 'res (compute-restarts foo1)
:key #'restart-name
:test-not #'eql)))
(let ((restarts (remove 'res (compute-restarts foo1)
:key #'restart-name
:test-not #'eql)))
@@
-96,8
+97,11
@@
(assert
(eq (block nil
(handler-bind
(assert
(eq (block nil
(handler-bind
- ((type-error (lambda (c) (return :failed)))
+ ((type-error (lambda (c)
+ (declare (ignore c))
+ (return :failed)))
(simple-error (lambda (c)
(simple-error (lambda (c)
+ (declare (ignore c))
(return (if (find-restart 'continue)
:passed
:failed)))))
(return (if (find-restart 'continue)
:passed
:failed)))))