anchor.diff:           else collect (make-label i binding) into site-labels
                 
            finally (return (values (list* monomer site-labels)
  -                                 (1+ i))))))
  +                                 i)))))
   
   
   (defun parse-nil-monomer-description (monomer bindings binding-table offset)
  
positive.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 (eval (fld-form-object m)))))
  
  (defgeneric monomer-sites (m)
    (:method ((m symbol)) (|MONOMER.SITES| (eval m)))
  
negative.code: ;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  ;;;; THE SOFTWARE.
  
  ;;; $Id: species-type.lisp,v 1.40 2008/05/02 22:05:29 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  