anchor.diff:                   0 n 0 0))
   
   (defun grow-window-internal (grow-window-list shrink-window-list n)
  -  (if (< (window-%y (car grow-window-list))
  -         (window-%y (car shrink-window-list)))
  +  (if (< (window-y (car grow-window-list))
  +         (window-y (car shrink-window-list)))
         (and (shrink-top-windows shrink-window-list n)
              (grow-bottom-windows grow-window-list n))
         (and (shrink-bottom-windows shrink-window-list n)
  
positive.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)
    (window-set-size window
  
negative.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
  