anchor.diff:  (defun collect-bottom-windows (window-list)
     (lem-utils:max-if (lambda (window)
                         (+ (window-y window)
  -                         (window-%height window)))
  +                         (window-height window)))
                       window-list))
   
   (defun %shrink-windows (window-list
  
positive.code:                                   (+ (window-width deleted-window)
                                       1
                                       (window-width win))
                                    (window-%height win))))
                (t
                 (dolist (win (lem-utils:max-if #'window-x window-list))
                   (window-set-size win
                                    (+ (window-width deleted-window)
                                       1
                                       (window-width win))
                                    (window-%height win)))))
          (cond ((< (window-y deleted-window)
                    (window-y (car window-list)))
                 (dolist (win (lem-utils:min-if #'window-y window-list))
  
negative.code:                                  (window-y deleted-window))
                   (window-set-size win
                                    (window-width win)
                                    (+ (window-height deleted-window)
                                       (window-height win)))))
                (t
                 (dolist (win (lem-utils:max-if #'window-y window-list))
                   (window-set-size win
                                    (window-width win)
                                    (+ (window-height deleted-window)
                                       (window-height win)))))))))
  
  (defmethod %delete-window ((window window))
    (when (one-window-p)
  