home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR24
/
CLISP.ZIP
/
SCREEN.LSP
< prev
next >
Wrap
Text File
|
1993-09-12
|
1KB
|
34 lines
(in-package "SCREEN" :use '("LISP"))
#|
; Re-Export von importierten Symbolen kann man nicht mit der
; P I S E R U I - Regel erreichen. Diese Symbole muß man zuerst importieren.
(in-package "SYSTEM")
(import '(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
)
"SCREEN"
)
(in-package "SCREEN")
|#
(export '(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*
) )
(proclaim '(special *window*))
(defmacro with-window (&body body)
`(LET ((*WINDOW* (MAKE-WINDOW)))
(UNWIND-PROTECT (PROGN ,@body) (CLOSE *WINDOW*))
)
)