home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / screen.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  1.4 KB  |  37 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1
  3.    #18Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 D9 30 E4 19 01) "SCREEN"
  4.    ("LISP")
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  7.    (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION
  8.      CLEAR-WINDOW CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE
  9.      INSERT-WINDOW-LINE HIGHLIGHT-ON HIGHLIGHT-OFF WINDOW-CURSOR-ON
  10.      WINDOW-CURSOR-OFF WITH-WINDOW *WINDOW* READ-KEYBOARD-CHAR *NEW-WINDOW*
  11.   ))
  12. #Y(#:TOP-LEVEL-FORM-3 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 19 01)
  13.    (SPECIAL *WINDOW*)
  14.   )
  15. #Y(#:TOP-LEVEL-FORM-4
  16.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  17.    READ-KEYBOARD-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
  18.    #Y(READ-KEYBOARD-CHAR
  19.       #18Y(00 00 00 00 01 00 00 00 00 02 6A 00 37 03 30 7D 19 02)
  20.       *KEYBOARD-INPUT*
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-5
  23.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B 62 D8 70 52 8D 04 04 D8 D9 2F
  24.         02 D8 62 31 85 C3 19 01
  25.        )
  26.    *NEW-WINDOW* (DEFCONSTANT *NEW-WINDOW* NIL) SYSTEM::CONSTANT-WARNING
  27.   )
  28. #Y(#:TOP-LEVEL-FORM-6
  29.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  30.    WITH-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  31.    #Y(WITH-WINDOW
  32.       #25Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 DA DB 9F 79 C7 7B 02 60 03
  33.            19 04
  34.           )
  35.       LET ((*WINDOW* (MAKE-WINDOW))) UNWIND-PROTECT PROGN ((CLOSE *WINDOW*))
  36.   )  )
  37.