anchor.diff:             sum (space-requirement-max-major sr) into max-major
              maximize (space-requirement-minor sr) into minor
              maximize (space-requirement-min-minor sr) into min-minor
  -           minimize (space-requirement-max-minor sr) into max-minor
  +           maximize (space-requirement-max-minor sr) into max-minor
              finally
                (return
                  (space-requirement+*
  
positive.code:              (t
                sr) ))))
  
   (defmethod box-layout-mixin/xically-compose-space ((pane box-layout-mixin))
     (let ((n (length (sheet-enabled-children pane))))
       (with-slots (major-spacing) pane
  
negative.code:      (values majors
               (mapcar (lambda (x) x minor) minors))))
  
    (defmethod box-layout-mixin/xically-allocate-space ((pane box-layout-mixin) real-width real-height)
     (with-slots (major-spacing) pane
       (multiple-value-bind (majors minors)
           (box-layout-mixin/xically-allocate-space-aux* pane real-width real-height)
         ;; now actually layout the children
         (let ((x 0))
           (loop
  