anchor.diff:             (complex-graph-label-test-predicate (test glabel)
                (cond
                  ((symbolp test)
  -                (or (and (eq test '?) (symbolp glabel))
  +                (or (and (wildcard-monomer-symbol-p test) (symbolp glabel))
                       (eq test glabel)))
   
                  ((wildcard-label-p test)
  -                (wildcard-test test glabel))
  +                (if (site-label-p glabel)
  +                    (wildcard-test test glabel)))
   
                  ((site-label-p test)
                   (and (site-label-p glabel)
  
positive.code: ;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  ;;;; THE SOFTWARE.
  
  ;;; $Id: species-type.lisp,v 1.39 2008/05/01 19:22:30 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  
negative.code:   (:method ((m null)) location)
    (:method ((m symbol)) (|MONOMER.LOCATION-CLASS| (eval m)))
    (:method ((m monomer)) (|MONOMER.LOCATION-CLASS| m))
    (:method ((m cons)) (monomer-lclass (fld-form-object m))))
  
  (defgeneric monomer-sites (m)
    (:method ((m symbol)) (|MONOMER.SITES| (eval m)))
  