anchor.diff:      (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")))
  +    ;; The following test fails, but I'm pretty sure it's just Eos' fault.
  +    ;; (setf (nickname o e2) "Chíp")
  +    ;; (is (equal (list e2) (find-by-short-description o "hip")))
       (setf (noun e1) nil
             (noun e2) nil
             (nickname o e1) nil
  
positive.code:     (is (string= "Tomato" (nickname o1 e)))
      (setf (nickname o2 e) "Tomawtoe")
      (is (string= "Tomawtoe" (nickname o2 e)))
      (is (string= "Tomato" (nickname o1 e)))))
  
  (test short-description
    (with-entities (e f o)
  
negative.code:     (setf (noun e) "teapot")
      (is (string= "a teapot" (base-description e)))
      (setf (adjectives e) '("short" "stout"))
      (is (string= "a short and stout teapot" (base-description e)))
      (setf (noun f1) "handle")
      (setf (noun f2) "spout")
  