#+clim - что это обозначает и далее #-clim-2 #+clim-2
(defvar *clim-clip-rectangle*
#-clim-2 (make-rectangle* 0 0 1 1)
#+clim-2 (make-bounding-rectangle 0 0 1 1)
"Reused by with-clipping-internal to reduce consing.")
make-rectangle* [Function]
Arguments: x1 y1 x2 y2
Summary: Returns an object of class standard-rectangle whose edges are parallel to the coordinate axes. One corner is at the point point1 (or the position (x1, y1)) and the opposite corner is at the point point2 (or the position (x2, y2)). There are no
ordering constraints among point1 and point2 (or x1 and x2, and y1 and y2).
make-bounding-rectangle [Function]
Arguments: x1 y1 x2 y2
Summary: Returns an object of the class standard-bounding-rectangle with the edges specified by x1, y1, x2, and y2, which must be real numbers.
Видать пытаюсь портировать вот это
https://github.com/McCLIM/McCLIM/blob/master/Apps/Scigraph/scigraph/draw.lisp
на LispWorks CAPI