(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #14Y(00 00 00 00 00 01 D8 37 01 D9 30 E1 19 01) "SCREEN"
   ("LISP")
  )
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION
    CLEAR-WINDOW CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE
    INSERT-WINDOW-LINE HIGHLIGHT-ON HIGHLIGHT-OFF WINDOW-CURSOR-ON
    WINDOW-CURSOR-OFF WITH-WINDOW *WINDOW*
  ))
#Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D8 30 5B 19 01) (SPECIAL *WINDOW*)
  )
#Y(#:TOP-LEVEL-FORM-4
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) WITH-WINDOW
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-WINDOW
      #21Y(01 00 01 00 00 08 94 02 D8 D9 DA DB 9F 79 C7 7B 02 60 03 19 04) LET
      ((*WINDOW* (MAKE-WINDOW))) UNWIND-PROTECT PROGN ((CLOSE *WINDOW*))
  )  )