anchor.diff:      (setf (noun e) "teapot")
       (is (string= "a teapot" (base-description e)))
       (setf (adjectives e) '("short" "stout"))
  -    ;; Why the hell is this out of order?
       (is (string= "a short and stout teapot" (base-description e)))
       (setf (noun f1) "handle")
       (setf (noun f2) "spout")
  
positive.code:     (setf (nickname o e1) "Mrs. Potts")
      (is (null (find-by-short-description o "teapot")))
      (is (equal (list e1) (find-by-short-description o "rs. Pot")))
      (setf (nickname o e2) "Chíp")
      ;; WAT. Y U FAIL, POMO? Y?!
      (is (equal (list e2) (find-by-short-description o "hip")))
      (setf (noun e1) nil
            (noun e2) nil
            (nickname o e1) nil
  
negative.code:     (is (string= "Tomato" (nickname o1 e)))
      (setf (nickname o2 e) "Tomawtoe")
      (is (string= "Tomawtoe" (nickname o2 e)))
      (is (string= "Tomato" (nickname o1 e)))
      (setf (nickname o1 e) nil
            (nickname o2 e) nil)))
  
  (test short-description
    (with-entities (e f o)
  