From 085b9010ceb3b650a11e6311cea38157fec2acb5 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Thu, 2 Feb 2006 12:12:38 +0100 Subject: [PATCH] Fix bug in defalut handling of IS macro --- src/check.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/check.lisp b/src/check.lisp index 1bab17d..8641302 100644 --- a/src/check.lisp +++ b/src/check.lisp @@ -147,16 +147,14 @@ Wrapping the TEST form in a NOT simply preducse a negated reason string." (setf bindings (list (list v ?value)) effective-test `(,?satisfies ,v) default-reason-args (list "~S did not satisfy ~S" v `',?satisfies))) - (t + (_? (setf bindings '() effective-test test - default-reason-args "No reason supplied."))) + default-reason-args (list "No reason supplied.")))) `(let ,bindings (if ,effective-test (add-result 'test-passed :test-expr ',test) - (process-failure :reason ,(if (null reason-args) - `(format nil ,@default-reason-args) - `(format nil ,@reason-args)) + (process-failure :reason (format nil ,@(or reason-args default-reason-args)) :test-expr ',test)))))) ;;;; *** Other checks -- 1.7.10.4