anchor.diff:  
   (defun reset-list ()
     "Delete all entries from *master-word-list*. Returns t on success."
  -  (and (setf *master-word-list* (%reset-list))
  +  (and (setf *master-word-list* (%reset-list)
  +             *word-count-array* (make-array '(15 26) :element-type 'fixnum))
          t))
   
   (defun refresh-list ()
  
positive.code:         do (setf (gethash part-of-speech ht) (make-array 1500 :adjustable t :fill-pointer 0))
          finally (return ht)))
  
  (defparameter *master-word-list* (%reset-list)
    "The word list holding all words and their parts of speech.")
  
  (defun total-entries ()
    "Returns the total length the dictionary."
  
negative.code:           for first-letter-now  = (aref word 0)
            when (char-not-equal first-letter-then first-letter-now)
              do (princ (char-upcase first-letter-now))
            when (and (not (find #\Space word)) ; Forbid multi-word phrases to enter.
                      (or (char<= #\A (char word 0) #\Z)  ; Must start with an uppercase…
                          (char<= #\a (char word 0) #\z)));…or lowerccase letter.
              do (map nil
                      #'(lambda (p)
                          (vector-push-extend word (gethash (decode-POS-letter p) *master-word-list*))
                          (incf (aref *word-count-array* (POS-associate-number p) (letter-associate-number (char word 0)))))
                      codes)
                 (incf read)
            finally
  