Re: [Q] with-clip-rect

[poeck@informatik.uni-wuerzburg.de (Karsten Poeck)]

>Does someone know how to use this?
Look at

(defmacro with-rectangle-arg ((var left &optional top right bottom) &body body)
  "takes a rectangle, two points, or four coordinates and makes a rectangle.
body is evaluated with VAR bound to that rectangle."
  `(rlet ((,var :rect))
     (setup-rect ,var ,left ,top ,right ,bottom)
     ,@body))

from quickdraw.lisp

Karsten