)load  DSETC  DRINGC  DFIELDC  DBFIELD
)load  DCASEC  DCLAUSE  DCTRL
)load  DTOWERC  DTOWER  
)load  DUPOLYC  DUPOLY1  DUPOLY2  DUPOLY3  DUPOLY
)load  FLAG CTXTC VOIDCT

)lisp (setq *print-array* t)
)lisp (setq *print-level* 20)
)lisp (setq *print-length* 20)

)set break query