anchor.diff:               default states name))
   
       
  -     (states (make-state-site-info :tags tags :type states :default default :index index))
  +     (states (make-state-site-info :tags tags :type states :default default :index index
  +                                   :documentation documentation))
   
        (t      (make-bond-site-info :tags tags
                                     :index index
                                     :type connector
  +                                  :documentation documentation
                                     :sublocation sublocation)))))
  -
   
   (defun ensure-canonical-complex-graph (x &optional force-pattern)
     (gtools:canonical-graph
  
positive.code: (defcon monomer ()
    (&optional (name := *name*)
     &property (location-class := compartment)))
  
  (defprop monomer.sites ()
   (let* ((sindex -1)
  
negative.code:     (symbol (intern (symbol-name x) :keyword))
      (t      x)))
  
  (defun make-site-info (tags &rest args &key states default connector documentation sublocation index)
    (declare (ignorable args))
    (let* ((tags      (mapcar #'keywordify
                              (if (listp tags) tags (list tags))))
  