Update of /project/cl-unification/cvsroot/cl-unification In directory common-lisp.net:/tmp/cvs-serv25202
Modified Files: match-block.lisp Log Message: Added acknowledgement to Peter Scott.
Date: Wed Apr 27 22:54:05 2005 Author: mantoniotti
Index: cl-unification/match-block.lisp diff -u cl-unification/match-block.lisp:1.3 cl-unification/match-block.lisp:1.4 --- cl-unification/match-block.lisp:1.3 Wed Apr 27 22:52:09 2005 +++ cl-unification/match-block.lisp Wed Apr 27 22:54:05 2005 @@ -127,6 +127,9 @@
+;;; match-case -- +;;; Implementation provided by Peter Scott. + (defmacro match-case ((object &key errorp default-substitution) &rest clauses) "MATCH-CASE sets up a CASE-like environment for multiple template matching clauses. The syntax of MATCH-CASE comprises a number of clauses of the form