anchor.diff:                          ((char-eq #\c) #(0f0 1f0 0f0 0f0))
                           ((char-eq #\g) #(0f0 0f0 1f0 0f0))
                           ((char-eq #\t) #(0f0 0f0 0f0 1f0))
  -                        (t (error "Unknown nucleotide character.")))
  +                        (t (error "Unknown nucleotide
  +character. Please extend `orthogonal-coded' to support this character.
  +")))
                     :element-type 'single-float))))
   
   (defgeneric orthogonal-coded-seq (seq)
  +  ;;FIXME: Missing documentation
     (:documentation "Take an nucleotide sequence and generate an
  -  orthogonal coded copy of the sequence. Albert, please describe what orthogonal coded means and when it is used."))
  +orthogonal coded copy of the sequence.  Albert, please describe what
  +orthogonal coded means and when it is used."))
   
   (defmethod orthogonal-coded-seq ((seq string))
  +  ;;FIXME: Missing documentation
     "Albert"
     (loop
  -     with orth-seq = (make-array (* (length seq) 4) :element-type 'single-float)
  +     with orth-seq = (make-array (* (length seq) 4)
  +                                 :element-type 'single-float)
        for cur-pos fixnum from 0 below (length orth-seq) by 4
        for char character across seq do
        (setf (subseq orth-seq cur-pos (+ cur-pos 4))
  
positive.code:            :initarg :strand
             :initform 0
             :type (integer -1 1)
  	   :documentation "The direction in which the feature is found on the genome, if applicable. The number 1 denotes the direction from the small chromosomal arm (p like petit) to the larger (q)."))
    (:documentation "Nucleotide sequences can be retrieved from genomic databases (like Ensembl) which is implemented in CBCL. From Ensembl, nucleotides can also be retrieved as genes (with exons and introns) or transcripts. Specialised databases offer information on expressed sequence tags (ESTs)."))
  
  (defclass amino-acid-sequence (bio-sequence) ()
    (:documentation "A real protein or at least some smallish peptide."))
  
negative.code: (defclass feature ()
    ((feature-type :accessor feature-type
                   :initarg :feature-type))
    (:documentation "A property of interest that is referred to from a
  biological entity, i.e, a biological sequence."))
  
  (defgeneric shuffle-sequence (seq)
    (:documentation "Return a randomly shuffled copy of the sequence." )
  