From 15cd7569cdb262da1f54246f135242ccdec03c0d Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Sat, 23 Mar 2013 13:04:35 +0100 Subject: [PATCH 1/1] Silence some unused variable warnings in tests/condition.[im]pure.lisp --- tests/condition.pure.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tests/condition.pure.lisp b/tests/condition.pure.lisp index 88fba5b..0430800 100644 --- a/tests/condition.pure.lisp +++ b/tests/condition.pure.lisp @@ -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))))) -- 1.7.10.4