anchor.diff:    (:base-table "individual_type")
     (:documentation "Presentation of further information on indivuals genotyped (fully_inbred, partly_inbred, outbread, mutant)."))
   
  +
  +#||			 individual_population
  ++----------------------+------------------+------+-----+---------+-------+
  +| individual_sample_id | int(10) unsigned |      | PRI | 0       |       |
  +| population_sample_id | int(10) unsigned |      | PRI | 0       |       |
  ++----------------------+------------------+------+-----+---------+-------+
  +||#
  +
  +(def-view-class individual-population ()
  +  ((individual-sample-id :db-kind :key :type integer)
  +   (population-sample-id :db-kind :key :type integer)
  +   (population-genotype :db-kind :join :db-info (:join-class population-genotype
  +						 :home-key population-sample-id
  +						 :foreign-key sample-id) )
  +   (individual :db-kind :join :db-info (:join-class population-genotype
  +						 :home-key individual-sample-id
  +						 :foreign-key sample-id) ))
  +  (:base-table "individual_population")
  +  (:documentation "The sample IDs of populations and individuals are different, but an individual may belong to a larger study and thus be assignable to that other sample ID. The table 'population' contains the sample-id as the only attribute. The assignment is hence rather a grouping of individuals."))
  +
  +#||			 population_genotype;
  ++------------------------+------------------+------+-----+---------+----------------+
  +| Field                  | Type             | Null | Key | Default | Extra          |
  ++------------------------+------------------+------+-----+---------+----------------+
  +| population_genotype_id | int(10) unsigned |      | PRI | NULL    | auto_increment |
  +| variation_id           | int(10) unsigned |      | MUL | 0       |                |
  +| allele_1               | varchar(255)     | YES  |     | NULL    |                |
  +| allele_2               | varchar(255)     | YES  |     | NULL    |                |
  +| frequency              | float            | YES  |     | NULL    |                |
  +| sample_id              | int(10) unsigned | YES  | MUL | NULL    |                |
  ++------------------------+------------------+------+-----+---------+----------------+
  +||#
  +
  +(def-view-class population-genotype ()
  +  ((population-genotype-id :db-type :key :type integer)
  +   (variation-id :db-type :key :type integer)
  +   (variation :db-type :join :db-info (:join-class variation
  +				       :foreign-key variation-id
  +				       :home-key variation-id))
  +   (allele-1 :db-type :base :type (string 255))
  +   (allele-2 :db-type :base :type (string 255))
  +   (frequency :db-type :key :type float)
  +   (sample-id :db-type :key :type integer)
  +   (individual-population :db-type :join :db-info (:join-class individual-population
  +						   :foreign-key population-sample-id
  +						   :home-key sample-id)))
  +  (:base-table "population_genotype")
  +  (:documentation "Populations may be treated like individuals, only that the distribution of alleles will be of arbitrary frequencies. The sample ID may be used to link the population to individuals - for few populations only."))
  +
   #||					 transcript_variation;
   +-------------------------+-------------------------------+------+-----+---------+----------------+
   | transcript_variation_id | int(10) unsigned              |      | PRI | NULL    | auto_increment |
  
positive.code: 				    :foreign-key source-id
  				    :home-key source-id
  				    :retrieval :delayed))
     (name :db-type :key :type (string 255))
     (validation-status :db-type :base (string 15))
     (ancesteral-allele :db-type :base string))
    (:base-table "variation")
    (:documentation "This class identifies the abstract notion of a nucleotide polymorphism. The 'name' attribute is the frequently found rs0000 identifyer of a SNP. With this class is specified what to look for, but the individuum has not yet been inspected."))
  
  #||			 allele
  +--------------+------------------+------+-----+---------+----------------+
  
negative.code:   ((transcript-variation-id :db-type :key :type integer)
     (transcript-id :db-type :key :type integer)
     (variation-feature-id :db-type :key :type integer)
     (variation-feature :db-type :join :db-info (:join-class variation-feature
  					       :foreign-key variation-feature-id
  					       :home-key variation-feature-id ))
     (cdna-start :db-type :base :type integer)
     (cdna-end :db-type :base :type integer)
     (translation-start :db-type :base :type integer)
  