home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR24
/
CLISP.ZIP
/
STDWIN.LSP
< prev
next >
Wrap
Text File
|
1993-09-12
|
284b
|
15 lines
;; STDWIN-Paket
;; Bruno Haible 29.8.1993
(in-package "STDWIN" :use '("LISP"))
(defmacro drawing (window &body body)
(let ((w (gensym)))
`(LET ((,w ,window))
(BEGIN-DRAWING ,w)
(UNWIND-PROTECT (PROGN ,@body)
(END-DRAWING ,w)
) )
) )