anchor.diff:  
   (defun codes-tm-protein (gene)
     "True iff at least one transcript of that genes codes for a
  -transmembrane protein."
  +transmembrane protein.
  +
  +Example:
  +
  +* (codes-tm-protein (sample-gene-tp53))
  +
  +NIL
  +* (codes-tm-protein (sample-gene-rhodopsin))
  +
  +T "
     (some #'transmembrane-protein-p (slot-value gene 'transcript)))
   
   (defun codes-non-tm-protein (gene)
  -  "True iff all transcripts of that gene are (presumed) soluble."
  +  "True iff all transcripts of that gene are (presumed) soluble. Please be aware that this is not the mere complement of the function #'codes-tm-protein since some genes have both transmembrane and soluble isoforms.
  +
  +Example:
  +
  +* (codes-non-tm-protein (sample-gene-tp53))
  +
  +T
  +* (codes-non-tm-protein (sample-gene-rhodopsin))
  +
  +NIL"
     (some (complement #'transmembrane-protein-p) (slot-value gene 'transcript)))
   
   
  
positive.code: ;;; be able to handle dna-sequence-intervals, nucleotide-intervals and
  ;;; amino-acid-intervals
  
  ;;; There are better methods in clcb. Remove if you're shure that it
  ;;; won't break stuff.
  (defun aa->nt (aa-pos &optional (offset 0))
    "Convert an position given in amino acids to a position in
  nucleotides. If `offset' is given, it's interpreted as the number of
  
negative.code:   "The length of the sequence on the genome.
  
  ###Example:
  * (seq-length (sample-gene-rhodopsin))
  
  6695
  * (seq-length (sample-gene-tp53))
  
  19197"
    (with-slots ((seq-start seq-region-start)
                 (seq-end   seq-region-end))
        ens-obj
  