anchor.diff:                           :home-key gene-id
                            :foreign-key gene-id
                            :set t)))
  -  :stable-id-char #\g
  -  :dna-sequence t
  -  (:documentation "Segment of genomic or mitochondrial DNA that is coding for RNA or protein.")
  -)
  +  (:stable-id-char #\g)
  +  (:dna-sequence t)
  +  (:documentation "Segment of genomic or mitochondrial DNA that is
  +coding for RNA or protein."))
   
   ;;; --------------------------------------------------------------------------
   ;;; Proteins and Protein Features
  
positive.code:                                  (<= seq-region-start x seq-region-end))))
                        :allocation :class
                        :db-kind :virtual))
    (:documentation "Represents genomic sequences. The data has reached a stage such that the DNA sequence can indeed be represented in form of a chromosomal block. Though, for some organisms the DNA sequence may not yet be consecutive. If you are interested to learn about all the fractions of the genome that have been sequenced then you want to inspect the repository of traces that Ensembl provides separatedly."))
  
  
  (defmacro def-ensembl-class (class-name slots &key dna-sequence stable-id-char)
    (with-symbol-prefixing-function (table-concat class-name)
      `(progn
         ,(when stable-id-char
                `(progn
                  (def-ensembl-stable-id-view ,class-name)
                  (def-fetch-by-stable-id-method ,class-name)
                  (push (cons ,stable-id-char ',class-name) *char-class-alist*)))
         (def-ensembl-view ,class-name (,@(when dna-sequence '(dna-sequence)))
            ,(append ;; If the object has a stable id, we need to link
                     ;; to the appropriate table.
                     (when stable-id-char
                       `((stable-id
                          :db-kind :join
                          :db-info (:join-class ,(table-concat "-STABLE-ID")
                                    :home-key ,(table-concat "-ID")
                                    :foreign-key ,(table-concat "-ID")
                                    :set nil))))
                     ;; The slot definitions for the table.
                     slots)))))
  
  
  
  
negative.code:                                 :home-key attrib-type-id
  				:foreign-key attrib-type-id)))
    (:base-table "attrib_type")
    (:documentation "The attributes are assigned to sequence regions and
    inform about various properties that a particular sequence region
    may have, e.g., the number of micro RNAs or alternative IDs."))
  
  
  (def-ensembl-view seq-region-attrib ()
  