anchor.diff:  ;;;
   ;;; Using terminology from the wikipedia article on English Conjugation:
   ;;; https://secure.wikimedia.org/wikipedia/en/wiki/English_conjugation
  +;;;
  +;;; Also see:
  +;;; https://secure.wikimedia.org/wikipedia/en/wiki/Transitive_verb
  +;;; https://secure.wikimedia.org/wikipedia/en/wiki/Intransitive_verb
  +;;; https://secure.wikimedia.org/wikipedia/en/wiki/Ditransitive_verb
   (defdao verb ()
     ((bare text)
      (third-person text)
  -   (preterite text))
  -  (:keys bare)
  -  (:unique-index bare)
  -  (:unique bare))
  +   (preterite text)
  +   (transitivep boolean :col-default nil)
  +   (intransitivep boolean :col-default nil)
  +   (ditransitivep boolean :col-default nil))
  +  (:keys id)
  +  (:unique-index third-person)
  +  (:unique third-person))
   
  -(defun add-verb (bare &optional third-person preterite)
  +(defun add-verb (bare &key third-person preterite
  +                 transitivep intransitivep ditransitivep)
     (with-db ()
       (make-dao 'verb
                 :bare bare
  
positive.code:                    ("sunnily") ("brightly") ("happily") ("honestly") ("nicely")
                     ("handsomely") ("cleverly") ("fascetiously") ("excitedly")
                     ("smugly") ("smilingly") ("angrily")))
      (add-verb . (("grin" "grins" "grinned") ("chuckle") ("fluff") ("squee")
                   ("pout") ("cackle") ("fix") ("preen") ("smile") ("frown")
                   ("cheer") ("laugh") ("wave") ("get" "gets" "got")
                   ("cry" "cries" "cried")))))
  
  (defun reset ()
    (map nil #'rebuild-table '(verb adverb pronoun)))
  
negative.code:               :preterite (cond (preterite)
                                 ((ends-with #\e bare)
                                  (concatenate 'string bare "d"))
                                 (t (concatenate 'string bare "ed")))
                :intransitivep intransitivep
                :transitive transitivep
                :distransitivep ditransitivep))
    t)
  
  (defun remove-verb (bare)
    (db-query (:delete-from 'verb :where (:= 'bare bare)))
    t)
  