- (("west" server-room ,wooden-unlocked-door)
- ("east" code-a-plex ,metal-stiff-door)
- ("south" center-hallway #f)))
+ #:exits
+ ,(list (make <exit>
+ #:name "west"
+ #:to-symbol 'server-room
+ #:desc wooden-unlocked-door)
+ (make <exit>
+ #:name "east"
+ #:to-symbol 'code-a-plex
+ #:desc metal-stiff-door)
+ ;; (make <exit>
+ ;; #:name "south"
+ ;; #:to-symbol 'center-hallway)
+ ))