this: (with-coordinates ((*window* 4 5) &body body)
        (format window "~A" "HELLO")

expands to this:
(LET*
 ((OLD-POS (MULTIPLE-VALUE-LIST (SCREEN:WINDOW-CURSOR-POSITION *WINDOW*))))
 (SCREEN:SET-WINDOW-CURSOR-POSITION *WINDOW* 4 5) (FORMAT WINDOW "~A" "HELLO")
 (SCREEN:SET-WINDOW-CURSOR-POSITION *WINDOW* (CAR OLD-POS) (SECOND OLD-POS)))