common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Silence some unused variable warnings in tests/condition.[im]pure.lisp

Browse source
This commit is contained in:
Jan Moringen 2013-03-23 13:04:35 +01:00 committed by Christophe Rhodes
parent 9d5be5e953
commit 15cd7569cd
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/condition.pure.lisp
View file

@ -51,6 +51,7 @@
(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)))
@ -96,8 +97,11 @@
(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)
(declare (ignore c))
(return (if (find-restart 'continue)
:passed
:failed)))))