Update of /project/cl-unification/cvsroot/cl-unification In directory common-lisp.net:/tmp/cvs-serv25105 Modified Files: match-block.lisp Log Message: Fixed bug in condition signaling within MATCH-CASE. Date: Wed Apr 27 22:52:09 2005 Author: mantoniotti Index: cl-unification/match-block.lisp diff -u cl-unification/match-block.lisp:1.2 cl-unification/match-block.lisp:1.3 --- cl-unification/match-block.lisp:1.2 Wed Apr 27 22:41:56 2005 +++ cl-unification/match-block.lisp Wed Apr 27 22:52:09 2005 @@ -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)