anchor.diff:               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
  
positive.code:                                       (space-requirement-min-major sr))
                                    (space-requirement-major sr))))
                          srs)))
            #+nil
            (format t "~&;; ~S: allot=~S, wanted=~S, excess=~S, qs=~S~%"
                    'allot-space-xically allot wanted excess qs)
            (let ((sum (reduce #'+ qs)))
              (cond ((zerop sum)
                     (let ((n (length qs)))
  
negative.code: 	(clamp width  (sr-min-width pane)  (sr-max-width pane))
  	(clamp height (sr-min-height pane) (sr-max-height pane)))))
  
  (defmethod handle-event ((pane top-level-sheet-pane)
  			 (event window-configuration-event))
    (let ((x (window-configuration-event-x event))
  