anchor.diff:  
   (defgeneric monomer-lclass (m)
     (:method ((m (eql '*))) location)
  +  (:method ((m null)) location)
     (:method ((m symbol)) (|MONOMER.LOCATION-CLASS| (eval m)))
     (:method ((m monomer)) (|MONOMER.LOCATION-CLASS| m))
  -  (:method ((m cons)) (|MONOMER.LOCATION-CLASS| (eval (fld-form-object m)))))
  +  (:method ((m cons)) (monomer-lclass (eval (fld-form-object m)))))
   
   (defgeneric monomer-sites (m)
     (:method ((m symbol)) (|MONOMER.SITES| (eval m)))
  
positive.code:         when (funcall monomer-test lab)
          do (let* ((m-lclass (monomer-lclass lab))
                    (m-dim    (location-class-dimensionality m-lclass)))
               (when (< m-dim lclass-dim)
                 (setf lclass-dim m-dim
                       lclass m-lclass)))
          finally (return lclass)))
  
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.38 2008/05/01 16:14:56 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  