anchor.diff:      (symbol (intern (symbol-name x) :keyword))
       (t      x)))
   
  -(defun make-site-info (tags &rest args &key states default connector sublocation index)
  +(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))))
  
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.17 2007/12/12 22:43:20 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  
negative.code: (defcon monomer ()
    (&optional (name := *name*)
     &property (location-class := compartment)))
  
       
  (defield monomer.[] (x)
    object.(site x))
  
  (defprop monomer.sites ()
   (let* ((sindex -1)
  