anchor.diff:                      window-list))
   
   (defun collect-top-windows (window-list)
  -  (lem-utils:min-if #'window-%y window-list))
  +  (lem-utils:min-if #'window-y window-list))
   
   (defun collect-bottom-windows (window-list)
     (lem-utils:max-if (lambda (window)
  -                      (+ (window-%y window)
  +                      (+ (window-y window)
                            (window-%height window)))
                       window-list))
   
  
positive.code:                (dolist (win (lem-utils:min-if #'window-x window-list))
                   (window-set-pos win
                                   (window-x deleted-window)
                                   (window-%y win))
                   (window-set-size win
                                    (+ (window-%width deleted-window)
                                       1
  
negative.code:     (setf (frame-modified-floating-windows (current-frame)) t))
    (screen-set-pos (window-screen window) x y)
    (set-window-x x window)
    (set-window-y y window))
  
  (defun window-set-size (window width height)
    (when (floating-window-p window)
  