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