anchor.diff:                          (garden (you are in a beatiful garden.
                                    there is a well in front of you.))
                           (attic (you are in the attic.
  -                                there os a goamt weçdomg torch in the corner.))))
  +                                there os a giant welding torch in the corner.))))
  +
   
   ;; (node (edge direction way))
   (defparameter *edges* '((living-room (garden west door)
  
positive.code:              `(you see a ,obj on the floor.)))
      (apply #'append (mapcar #'describe-obj (objects-at loc objs obj-loc)))))
  
  ;; func tests
  (describe-path '(garden west door))
  (describe-location 'living-room *nodes*)
  (describe-paths 'living-room *edges*)
  (objects-at 'living-room *objects* *objects-locations*)
  (describe-objects 'living-room *objects* *objects-locations*)
  
negative.code:              (eq (cadr (assoc obj obj-locs)) loc)))
      (remove-if-not #'at-loc-p objs)))
  
  
  ;; functional! no side-effects
  (defun describe-objects (loc objs obj-loc)
    "Describe the objects existent of the location
     @loc -> location symbol
  