From: Marco Baringer <mb@bese.it>
Date: Fri, 10 Feb 2006 09:57:55 +0000 (+0100)
Subject: Fix IS macro's handling of the default (unknown) case
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4fec31c7fee75162da986168c8578017c56c197d;p=fiveam.git

Fix IS macro's handling of the default (unknown) case

In the list-match-case form we were using _? (which only matches the
symbol _?) instead of ?_ (which matches anything), so the default
clause was never being used.
---

diff --git a/src/check.lisp b/src/check.lisp
index 8641302..06c9bba 100644
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -147,10 +147,10 @@ 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)))
-        (_?
+        (?_
          (setf bindings '()
                effective-test test
-               default-reason-args (list "No reason supplied."))))
+               default-reason-args (list "No reason supplied"))))
       `(let ,bindings
          (if ,effective-test
              (add-result 'test-passed :test-expr ',test)