Wed Apr 27 20:52:09 UTC 2005  mantoniotti
  * Fixed bug in condition signaling within MATCH-CASE.
diff -rN -u old-cl-unification-1/match-block.lisp new-cl-unification-1/match-block.lisp
--- old-cl-unification-1/match-block.lisp	2013-07-24 17:39:55.000000000 +0000
+++ new-cl-unification-1/match-block.lisp	2013-07-24 17:39:55.000000000 +0000
@@ -166,7 +166,8 @@
           (if otherwise-clause-present-p
               (first (last clauses))
               (when errorp
-                `(error 'unification-not-exhaustive))))
+                `(error 'unification-non-exhaustive
+                        :format-control "Non exhaustive matching."))))
          )
     (labels ((generate-matchers (clauses)
 	       (if (null clauses)