anchor.diff:                            :home-key translation-id
                             :foreign-key translation-id
                             :set nil)))
  -  (:documentation "Description of a segment of a protein.")
  -)
  +  (:documentation "Description of a segment of a protein."))
   
   (def-ensembl-view analysis ()
     ((analysis-id     :type integer 
  
positive.code:                 options)))
      `(def-view-class ,name ,supers ,slots ,cl-options)))
  
  (defmacro def-ensembl-stable-id-view (ensembl-class)
    "Define an CLSQL view class for a *_stable_id table in EnsEMBL."
    (with-symbol-prefixing-function (table-concat ensembl-class)
      `(progn (def-ensembl-view ,(table-concat '-stable-id) ()
  
negative.code:                               :home-key exon-id
                                :foreign-key exon-id
                                :set nil)))
    (:stable-id-char #\e)
    (:dna-sequence t))
  
  
  (def-ensembl-view exon-transcript ()
  