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	2014-09-11 07:35:02.000000000 +0000
+++ new-cl-unification/test/unification-tests.lisp	2014-09-11 07:35:02.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)