anchor.diff:    (fetch-by-stable-id (stable-id m)))
   
   #||
  +desc domain;
   | domain_id                  | int(10) unsigned |      | PRI | NULL    | auto_increment |
   | stable_id                  | varchar(40)      |      | MUL |         |                |
   | method_link_species_set_id | int(10) unsigned |      |     | 0       |                |
  
positive.code: | url                        | varchar(255)     |      |     |         |                |
  ||#
  (def-view-class method-link-species-set ()
    ((method-link-species-set-id :db-kind :key :type integer)
     (method-link-id :type integer)
     (species-set-id :type integer)
     (name           :type (string 255))
     (source         :type (string 255))
     (url            :type (string 255))
     (species-set    :db-kind :join 
                     :db-info (:join-class species-set
  				   :home-key species-set-id
  				   :foreign-key species-set-id))
     (method-link    :db-kind :join
                     :db-info (:join-class method-link
  				   :home-key method-link-id
  				   :foreign-key method-link-id)))
    (:base-table "method_link_species_set")
    (:documentation "The assignment of a gene to a homology (in homology_member) depends on the species and the method that was applied. This class bridges the homology, not the assignment iself, with this additional information."))
  
  
negative.code: ||#
  
  (def-view-class domain ()
    ((domain_id                  :db-kind :key  :type integer)
     (stable_id                  :db-kind :key  :type (string 40))
     (method-link-species-set-id :db-kind :base :type integer)
     (description                :db-kind :base :type (string 255)))
    (:base-table "domain")
    (:documentation "A domain is defined on protein sequences and commonly associated with a particular protein function. This implementation is of a pure theoretical basis since both the table domain and the table domain_member are empty."))
  
  