Wed Feb 3 09:56:58 UTC 2010 pix@kepibu.org
* Make condition printable, for easier manually stepping through tests.
diff -rN -u old-cl-unification/test/unification-tests.lisp new-cl-unification/test/unification-tests.lisp
--- old-cl-unification/test/unification-tests.lisp 2015-12-05 01:34:31.000000000 +0000
+++ new-cl-unification/test/unification-tests.lisp 2015-12-05 01:34:31.000000000 +0000
@@ -203,7 +203,8 @@
(otherwise (error "error-inner")))))
(otherwise (error "error-outer"))))
-(define-condition inner-error (unification-failure) ())
+(define-condition inner-error (unification-failure) ()
+ (:default-initargs :format-control "Inner error."))
(with-tests (:name "control flow")
(test-error (nested-match-cases '(:a 42 :b 33)) :announce t)