                   (room/add-item paintings "")
                   (room/add-item floor "")
                   (room/add-item rug "")
-                  (room/add-item (make-door "west door" :library) "")
-                  (room/add-item (make-door "east door" :dining) "")
+                  (room/add-item (make-door ["west door" "w door"] :library) "")
+                  (room/add-item (make-door ["east door" "e door"] :dining) "")
                   (room/add-item oak-door-back "")))
 
 (def top-drawer (item/make ["drawer" "top drawer"]


(def rug (item/make "rug" "An ornate long rug."))

(defn make-door [extra-name goes-to]
   (item/make ["door" extra-name]
      "A wooden door."
      :closed true
      :enter goes-to))

                  (room/make "Corridor"
                             "The end of a corridor with rooms to the east and west, and the door to the back garden"
                             :initial-description "My steps resounded throughout a long corridor, with a series of rooms on each side. On the other end was an oak door, ajar.")
                  (room/add-item (make-door ["west door" "w door"] :bedroom2) "")
                  (room/add-item (make-door ["east door" "e door"] :bedroom3) "")
                  (room/add-item corridor "")
                  (room/add-item paintings "")
                  (room/add-item floor "")
                  (room/add-item rug "")))

(def fake-door (item/make ["door" "west door" "w door"]
                          "It was the same as the other doors in the corridor, except it didn't have a doorknob."
                          :open "I couldn't open the west door, it didn't have a doorknob."))

