anchor.diff:    (dispatch-repaint pane (sheet-region pane)))
   
   (defmethod compose-space ((pane clim-stream-pane))
  -  (make-space-requirement :width 300 :height 300
  -			  :max-width 300 :max-height 300))
  +  (make-space-requirement :width 300 :height 300))
   
   (defmethod dispatch-repaint ((pane clim-stream-pane) region)
     (repaint-sheet pane region))
  
positive.code:     (print-unreadable-object (space stream :type t :identity t)
        (format stream "width: ~S height: ~S" width height))))
  
  (defun make-space-requirement (&key (width 1) (max-width 1) (min-width 1)
  				    (height 1) (max-height 1) (min-height 1))
    (make-instance 'space-requirement
      :width width
      :max-width max-width
  
negative.code: 
  (defmethod compose-space ((pane pane))
    (make-space-requirement :width 200
  			  :height 200))
  
  (defmethod compose-space :around ((pane pane))
    (with-slots (sr-width sr-height sr-max-width
  