+\f
+;;; Grand hallway
+;;; -------------
+
+(define grand-hallway
+ (lol
+ ('room:grand-hallway
+ <room> #f
+ #:name "Grand Hallway"
+ #:desc " A majestic red carpet runs down the center of the room.
+Busts of serious looking people line the walls, but there's no
+clear indication that they have any logical relation to this place.
+ To the south is the lobby. All around are various doors, but
+they're all boarded up. Guess this is still a work in progress, huh?"
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to-symbol 'room:lobby))
+ )))
+