Plaster

common-lisp
(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 location (loc node) (cadr (assoc loc node) ) ) (defparameter edges `( ( living-room (garden west door) (attic upstairs ladder) ) ( garden (living-room east door) ) ( attic (living-room downstairs ladder) ) )