anchor.diff:  if no such word exists, then a nonce word is generated instead."
     (let ((pos-hash-table (gethash part-of-speech *master-word-list*)))
       (cond ((stringp part-of-speech) part-of-speech)
  -          ((member letter '(:any nil t)) (aref pos-hash-table (random (length pos-hash-table))))
  +          ((member letter '(:any nil t)) (alexandria:random-elt pos-hash-table))
             (t (if (zerop (get-dictionary-length part-of-speech letter))
                    (format nil "~@(~a~)" (generate-word letter))
                    (loop with threshold = (random
  
positive.code:                           ())))
      (with-output-to-string (out)
        (loop initially (princ start-letter out)
              for onset = (aref syllable-onsets (random (length syllable-onsets)))
              for nucleus = (aref syllable-nuclei (random (length syllable-nuclei)))
              for coda = (aref syllable-codas (random (length syllable-codas)))
              for next-syllable-p = t then (< 3 (random 7))
              for first-syllable-p = t then nil
              while next-syllable-p
              when (and first-syllable-p
                        (not (find start-letter (gethash :consonants phonemes))))
                do (loop for i in onset
                         do (princ (char (gethash i phonemes)
                                         (random (length (gethash i phonemes)))) out))
              do (loop for i in nucleus
                       do (princ (char (gethash i phonemes)
                                       (random (length (gethash i phonemes)))) out))
                 (loop for i in coda
                       do (princ (char (gethash i phonemes)
                                       (random (length (gethash i phonemes)))) out))))))
  
  (defun random-word (part-of-speech &optional letter)
    "Grabs a random word starting with the given part of speech starting with letter, if given.
  
negative.code:             when j collect '("and")
              while j)
        (flet ((%get-POS-template (length)
                 (alexandria:random-elt (aref *master-structures-list* (1- length)))))
          (if (<= (length acronym) (length *master-structures-list*))
              ;; Randomly pick a template to use.
              (%get-POS-template (length acronym))
  