anchor.diff:  ||#
   
   (def-view-class domain ()
  -  ((domain_id :db-kind :key :type integer)
  -   (stable_id :db-kind :key :type (string 40))
  -   (description :db-kind :key :type (string 255)))
  +  ((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."))
   
  
positive.code: ||#
  
  (def-view-class domain-member ()
    ((domain-id :db-kind :key :type integer)
     (member-id :db-kind :key :type integer)
     (member-start :type integer)
     (member-end :type integer)
     (domain :db-kind :join 
             :db-info (:join-class domain
  			   :home-key domain-id
  			   :foreign-key domain-id))
     (member :db-kind :join
             :db-join (:join-class member-view
  			   :home-key member-id
  			   :foreign-key member-id))
  )
    (:base-table "domain_member")
    (:documentation "Link between the domain and the gene ... or the peptide? The database is yet empty."))
  
  
negative.code:   (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       |                |
  