+ #:to 'forest-clearing)
+ (make <exit>
+ #:name "north"
+ #:to 'vaulted-tunnel)))
+ ;; map
+ ('wedding-entrance:map
+ <readable> 'wedding-entrance
+ #:name "wedding map"
+ #:desc '("This appears to be a map of the wedding grounds. "
+ "You could read it if you want to.")
+ #:read-text `(pre ,wedding-map-text)
+ #:goes-by '("map" "wedding map"))
+ ('vaulted-tunnel
+ <room> #f
+ #:name "A Vaulted Tunnel of Trees"
+ #:desc
+ '((p "You step into the entrance to see two rows of trees with intersecting branches, forming a vaulted tunnel. The fairy lights cast a soft glow on the space. On each tree trunk is a portrait and the eerie laughter you heard outside echoes louder as you pass each portrait. "))
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to 'wedding-entrance)))
+ ('vaulted-tunnel:portrait
+ <gameobj> 'vaulted-tunnel
+ #:name "hanging portraits"
+ #:desc
+ "Each portrait shows a hazy image of a fairy in various modes of dress from Victorian to today's current fashions. The style and format of the photographs all look the same."
+ #:goes-by
+ '("hanging portrait" "hanging portraits" "portrait" "portraits"))
+ ;; ('ballroom
+;; <room> #f
+;; #:name "The Ballroom"
+;; #:desc
+;; '((p "You emerge into a clearing with six trees encircling a magical ballroom.
+;; At the center is a dance floor where fairies are dancing in rows of concentric
+;; circles. The lights that appear in unstructured smatterings throughout the mystical
+;; space have formed themselves into an elaborate chandelier above the dancers."))
+;; #:exits
+;; (list (make <exit>
+;; #:name "south"
+;; #:to 'vaulted-tunnel)
+;; (make <exit>
+;; #:name "east"
+;; #:to 'east-ballroom)
+;; (make <exit>
+;; #:name "west"
+;; #:to 'west-ballroom)
+;; (make <exit>
+;; #:name "north"
+;; #:to 'north-ballroom)
+;; ;; and north of that, the stairwell
+;; (make <exit>
+;; #:name "northeast"
+;; #:to 'orchestra)
+;; (make <exit>
+;; #:name "southeast"
+;; #:to 'wildflowers)
+;; (make <exit>
+;; #:name "southwest"
+;; #:to 'playground)
+;; (make <exit>
+;; #:name "west"
+;; #:to 'photo-studio)
+;; (make <exit>
+;; #:name "northwest"
+;; #:to 'fairy-go-round) ; fgr
+
+;; (make <exit>
+;; #:name "")
+
+;; (make <exit>
+;; #:name "south"
+;; #:to 'vaulted-tunnel)
+;; (make <exit>
+;; #:name "south"
+;; #:to 'vaulted-tunnel)
+;; (make <exit>
+;; #:name "south"
+;; #:to 'vaulted-tunnel)
+;; (make <exit>
+;; #:name "south"
+;; #:to 'vaulted-tunnel)
+;; (make <exit>
+;; #:name "south"
+;; #:to 'vaulted-tunnel)
+;; ))
+
+;; ('ballroom
+;; <room> #f
+;; #:name "The Ballroom"
+;; #:exits (list
+;; (make <exit>
+;; )
+;; [north entrance]
+;; [east entrance]
+
+;; [south vaulted-tunnel]
+;; [west entrance])
+;; #:desc ("You emerge into a clearing with six trees encircling a magical ballroom. At the center is a dance floor where " (cast dancers "fairies") " are dancing in rows of concentric circles. The lights that appear in unstructured smatterings throughout the mystical space have formed themselves into an elaborate chandelier above the dancers."))
+
+ ))