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-17 14:49:09.000000000 +0000
+++ new-cl-unification-1/match-block.lisp 2013-07-17 14:49:09.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