In draw.lisp in scigraph, there are calls to (setf bounding-rectangle-min-x) and friends. These don't seem to exist in mcclim, but there is (setf rectangle-edges*) which seems to be doing essentially the same thing.
Here is a little patch that implements that. Not sure it's really right, though.
Ray
Index: draw.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/draw.lisp,v retrieving revision 1.3 diff -u -r1.3 draw.lisp --- draw.lisp 17 Mar 2006 07:12:52 -0000 1.3 +++ draw.lisp 16 Dec 2006 14:58:36 -0000 @@ -134,13 +134,19 @@ (slot-value .x. 'clim-utils::max-y) be) (with-drawing-options (,stream :clipping-region .x.) ,@body))) - (:clim-2 + ((and :clim-2 (not :mcclim)) (let ((.x. *clim-clip-rectangle*)) (setf (bounding-rectangle-min-x .x.) le (bounding-rectangle-min-y .x.) te (bounding-rectangle-max-x .x.) re (bounding-rectangle-max-y .x.) be) (with-drawing-options (,stream :clipping-region .x.) + ,@body))) + ((and :clim-2 :mcclim) + (let ((.x. *clim-clip-rectangle*)) + (setf (rectangle-edges* .x.) + (values le te re be)) + (with-drawing-options (,stream :clipping-region .x.) ,@body))))))
(eval-when (compile load eval)