anchor.diff:                         (window-width window)
                          (- (window-height window) height)
                          t)))
  -    (setf (window-%height window) height)
  +    (set-window-height height window)
       (split-window-after window new-window :vsplit)
       (lem-if:split-window-vertically (implementation)
                                       (window-view window)
  
positive.code: (defun collect-bottom-windows (window-list)
    (lem-utils:max-if (lambda (window)
                        (+ (window-y window)
                           (window-%height window)))
                      window-list))
  
  (defun %shrink-windows (window-list
  
negative.code: (defun window-resize (window dw dh)
    (window-set-size window
                     (+ (window-width window) dw)
                     (+ (window-height window) dh))
    (run-hooks *window-size-change-functions* window))
  
  (defun adjust-size-windows-after-delete-window (deleted-window
  