Wed Apr 27 20:54:05 UTC 2005  mantoniotti
  * Added acknowledgement to Peter Scott.
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:56.000000000 +0000
+++ new-cl-unification-1/match-block.lisp	2013-07-24 17:39:56.000000000 +0000
@@ -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