anchor.diff:  
   (defun grow-window-horizontally-internal
       (grow-window-list shrink-window-list n)
  -  (if (< (window-%x (car grow-window-list))
  -         (window-%x (car shrink-window-list)))
  +  (if (< (window-x (car grow-window-list))
  +         (window-x (car shrink-window-list)))
         (and (shrink-left-windows shrink-window-list n)
              (grow-right-windows grow-window-list n))
         (and (shrink-right-windows shrink-window-list n)
  
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: 
  (defun window-move (window dx dy)
    (window-set-pos window
                    (+ (window-x window) dx)
                    (+ (window-%y window) dy)))
  
  (defun window-resize (window dw dh)
  