anchor.diff:  ;;;;LEGAL
   ;;;;    GPL
   ;;;;    
  -;;;;    Copyright Pascal J. Bourguignon 2003 - 2004
  +;;;;    Copyright Pascal J. Bourguignon 2003 - 2012
   ;;;;    
   ;;;;    This program is free software; you can redistribute it and/or
   ;;;;    modify it under the terms of the GNU General Public License
  
positive.code:       (nconc (collect-variables (car pat)) (collect-variables (cdr pat)))))))
  
  
  (defmacro match-case (sexp &rest clauses)
    "
  SEXP:    A symbolic expression, evaluated.
  
negative.code: (in-package "COMMON-LISP-USER")
  (defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.PMATCH"
    (:use "COMMON-LISP" "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY")
    (:export "MATCH-CASE" "MATCH-CASE*" "COLLECT-VARIABLES"
             ":" "?/" "?*" "?+" "??" "?N" "?X" "?C" "?V" "?AX" "?AC" "?AV"
             "MATCH-DICT-MAP" "MATCH-STATE-DICT"
             "MATCH-STATE-FAILED-P" "MATCH")
    (:import-from "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY" "WITH-GENSYMS")
    (:documentation
  