anchor.diff:                          (attic
                            (living-room downstairs ladder))))
   
  -(defun describe-path (edge)
  -  `(there is a ,(third edge) going ,(second edge) from here.))
  -
  -(defun describe-paths (location edges)
  -  (apply #'append (mapcar #'describe-path (cdr (assoc location edges)))))
  -
   (defparameter *objects* '(whiskey bucket frog chain))
   
   (defparameter *object-locations* '((whiskey living-room)
  
positive.code: (defparameter *nodes* '((living-room (you are in the living room. a wizard is
                                        snoring loudly on the couch.))
                          (garden (you are in a beautiful garden. there is a well
                                   in front of you.))
                          (attic (you are in the attic. there is a giant welding
                                  torch in the corner.))))
  
  (defun describe-location (location nodes)
    (cadr (assoc location nodes)))
  
  (defparameter *edges* '((living-room
                           (garden west door)
  
negative.code:                                    (chain garden)
                                     (frog garden)))
  
  (defparameter *starting-location* 'living-room)
  (defparameter *location* *starting-location*)
  