anchor.diff:                                :home-key translation-id
                                 :foreign-key translation-id)
                       :accessor protein-feature))
  -  :stable-id-char #\p
  -  :documentation "Translation is the product of a transcript. There is only one peptide per mRNA, which may be biologically bogus due to alternative translation initiation."
  -)
  +  (:stable-id-char #\p)
  +  (:documentation "Translation is the product of a transcript. There
  +  is only one peptide per mRNA, which may be biologically bogus due to
  +  alternative translation initiation."))
   
   
   
  
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 transcript-id
                            :foreign-key transcript-id
                            :set nil)))
    (:dna-sequence t)
    (:stable-id-char #\t))
  
  
  (def-ensembl-class exon
  