anchor.diff:  ;;;; 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 $
  +;;; $Id: species-type.lisp,v 1.18 2007/12/12 23:45:40 amallavarapu Exp $
   ;;; $Name:  $
   
   ;;; File: complex-species-type.lisp
  
positive.code: (defcon monomer ()
    (&optional (name := *name*)
     &property (location-class := compartment)))
  
  (defprop monomer.sites ()
   (let* ((sindex -1)
  
negative.code: ;;;
  ;;; SITE-INFO structure
  ;;;
  
  (defstruct-with-fields (site-info (:constructor nil)) tags index documentation)
  
  (defun site-info-name (s) (first (site-info-tags s)))
  
  