From c2915e382b980c12abd77a686f2d796ada69d172 Mon Sep 17 00:00:00 2001 From: Donavon Keithley Date: Wed, 15 Feb 2006 21:11:41 +0100 Subject: [PATCH] Fix (signals error ...), was always passing If the body of the check didn't signal error, PROCESS-FAILURE would. So I simply moved PROCESS-FAILURE out of the HANDLER-BIND form. --- src/check.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/check.lisp b/src/check.lisp index 06c9bba..e91b46d 100644 --- a/src/check.lisp +++ b/src/check.lisp @@ -207,13 +207,13 @@ not evaluated." :test-expr ',condition) (return-from ,block-name t)))) (block nil - ,@body - (process-failure - :reason ,(if reason-control - `(format nil ,reason-control ,@reason-args) - `(format nil "Failed to signal a ~S" ',condition)) - :test-expr ',condition) - (return-from ,block-name nil))))))) + ,@body)) + (process-failure + :reason ,(if reason-control + `(format nil ,reason-control ,@reason-args) + `(format nil "Failed to signal a ~S" ',condition)) + :test-expr ',condition) + (return-from ,block-name nil))))) (defmacro finishes (&body body) "Generates a pass if BODY executes to normal completion. In -- 1.7.10.4