anchor.diff:      (is (string= "Tomato" (nickname o1 e)))
       (setf (nickname o2 e) "Tomawtoe")
       (is (string= "Tomawtoe" (nickname o2 e)))
  -    (is (string= "Tomato" (nickname o1 e)))))
  +    (is (string= "Tomato" (nickname o1 e)))
  +    (setf (nickname o1 e) nil
  +          (nickname o2 e) nil)))
   
   (test short-description
     (with-entities (e f o)
  
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:     (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")
  