From: Christophe R. <cr...@us...> - 2013-10-22 19:26:49
|
The branch "master" has been updated in SBCL: via 15cd7569cdb262da1f54246f135242ccdec03c0d (commit) from 9d5be5e9531a594e67e7f4ba6e1201a36c8f1ad9 (commit) - Log ----------------------------------------------------------------- commit 15cd7569cdb262da1f54246f135242ccdec03c0d Author: Jan Moringen <jmo...@te...> Date: Sat Mar 23 13:04:35 2013 +0100 Silence some unused variable warnings in tests/condition.[im]pure.lisp --- tests/condition.pure.lisp | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) 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))))) ----------------------------------------------------------------------- hooks/post-receive -- SBCL |