anchor.diff:                                                  horizontal-p)
     (let ((window-list (window-tree-flatten window-tree)))
       (if horizontal-p
  -        (cond ((< (window-%x deleted-window)
  -                  (window-%x (car window-list)))
  -               (dolist (win (lem-utils:min-if #'window-%x window-list))
  +        (cond ((< (window-x deleted-window)
  +                  (window-x (car window-list)))
  +               (dolist (win (lem-utils:min-if #'window-x window-list))
                    (window-set-pos win
  -                                 (window-%x deleted-window)
  +                                 (window-x deleted-window)
                                    (window-%y win))
                    (window-set-size win
                                     (+ (window-%width deleted-window)
  
positive.code:   (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)
    (setf (window-%y window) y))
  
  (defun window-set-size (window width height)
  
negative.code: 
  (defun window-move (window dx dy)
    (window-set-pos window
                    (+ (window-x window) dx)
                    (+ (window-%y window) dy)))
  
  (defun window-resize (window dw dh)
  