home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / stdwin2.lsp < prev    next >
Encoding:
Text File  |  1993-08-29  |  270 b   |  15 lines
  1. ;; STDWIN-Paket
  2. ;; Bruno Haible 29.8.1993
  3.  
  4. (in-package "STDWIN" :use '("LISP"))
  5.  
  6. (defmacro drawing (window &body body)
  7.   (let ((w (gensym)))
  8.     `(LET ((,w ,window))
  9.        (BEGIN-DRAWING ,w)
  10.        (UNWIND-PROTECT (PROGN ,@body)
  11.          (END-DRAWING ,w)
  12.      ) )
  13. ) )
  14.  
  15.