anchor.diff:    (:method (pane) (declare (ignore pane))))
   
   (defmethod fit-pane-to-output ((stream clim-stream-pane))
  -  (when (sheet-mirror stream)
  +  ;;; Guard against infinite recursion of size is set to :compute, as this
  +  ;;; could get called from the display function. We'll call compose-space
  +  ;;; here, which will invoke the display function again..
  +  (when (and (sheet-mirror stream)
  +             (not (or (eq (pane-user-width stream) :compute)
  +                      (eq (pane-user-height stream) :compute))))
       (let* ((output (stream-output-history stream))
              (fit-width  (bounding-rectangle-max-x  output))
              (fit-height (bounding-rectangle-max-y output)))
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.193 2008-11-30 22:22:29 ahefner Exp $
  
  (in-package :clim-internals)
  
  
negative.code:   (flet ((compute (val default)
  	   (if (eq val :compute) default val)))
      (if (or (eq (pane-user-width pane) :compute)
              (eq (pane-user-height pane) :compute))
  	(progn
  	  (with-output-recording-options (pane :record t :draw nil)
  	    ;; multiple-value-letf anyone?
  