(setf *print-length* nil) 
(setf *objects*      '(whiskey-bottle bucket frog chain)) 

(setf *map* 
      '((living-room  
	 (you are in the living-room of a wizards house. there is a wizard snoring loudly on the couch.) 
	 (west        door   garden)  
	 (upstairs    stairway attic)
	 ) 
	(garden      
	 (you are in a beautiful garden. there is a well in front of you.) 
	 (east door living-room)
	 ) 
	(attic 
	 (you are in the attic of the wizards house. there is a giant  welding torch in the corner.) 
	 (downstairs stairway living-room)
	 )
	)
)

(setf *object-locations* '((whiskey-bottle living-room) 
                           (bucket living-room) 
                           (chain garden) 
                           (frog garden))) 

(setf *location* 'living-room) 

(defun describe-location (location map) 
  (second (assoc location map))) 

(print 
 (describe-location 'living-room *map*))