anchor.diff:                         ,@(if doc `(:documentation ,doc))])
          ',symbol)))
   
  -;;;
  -;;; MONOMER concept - main role is to hold sites
  -;;;
   (defcon monomer ()
     (&optional (name := *name*)
  -   &property (location-class := compartment)))
  +   &property (location-class := compartment)
  +             (patterns := ())))
   
        
   (defield monomer.[] (x)
  
positive.code:    (etypecase x
       (list (make-complex-graph x force-pattern))
       (complex-graph x))))
  
  ;;;
  ;;; COMPLEX GRAPH - graph structure
  
negative.code: ;;;
  ;;; COMPLEX-PATTERN
  ;;;
  ;;;
  ;;; pattern
  ;;;
  (defcon complex-pattern (reference-pattern :notrace)
    "Selector patterns are asserted into the database and detected by the detect-complex-pattern-isomorphism rule"
    (id)
  