anchor.diff:    (declare (ignorable thickness contents))
     (with-slots (user-width user-min-width user-max-width
                  user-height user-min-height user-max-height)
  -      spacing
  -    #+nil(setf user-width  (max (or thickness 0) (or user-width 0)))
  -    #+nil(setf user-height (max (or thickness 0) (or user-height 0)))))
  +      spacing))
   
   (defmethod compose-space ((pane spacing-pane) &key width height)
     (declare (ignore width height))
  
positive.code:              for minor in minors
               do
               (when (box-client-pane child)
                 #+NIL
                 (format *trace-output* "~&;;   child ~S at 0, ~D ~D x ~D(~D)~%;;       ~S~%"
                         (box-client-pane child)
                         x width height real-height
                         (compose-space (box-client-pane child)))
                 (layout-child (box-client-pane child)
                               :expand
                               :expand
  
negative.code:     (prog1 (port-keyboard-input-focus port)
        (setf (port-keyboard-input-focus port) stream))))
  
  ;;; output any buffered stuff before input
  
  (defmethod stream-read-gesture :before ((stream clim-stream-pane)
  