[cl-unification-cvs] CVS update: cl-unification/match-block.lisp

[Marco Antoniotti]

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)