(in-package "design")
(setup-dmodel `(:NAME TEST :LEFT-HANDED-COORDINATES-P NIL :IMAGE-SCALE
 5.75 :IMAGE-SCALE-UNITS "PIXELS/FEET" :UNITS NIL :NOTES NIL
:edge-model TEST
:disjoint-territory-model TEST
:default-territory-model TEST)
:design-elements `(
(DOORWAY :NUMBER-OF-DOORS 1 :NAME FRONT-DOOR)
(DOORWAY :NUMBER-OF-DOORS 1 :NAME BACK-DOOR)))