anchor.diff:  (defun window-resize (window dw dh)
     (window-set-size window
                      (+ (window-width window) dw)
  -                   (+ (window-%height window) dh))
  +                   (+ (window-height window) dh))
     (run-hooks *window-size-change-functions* window))
   
   (defun adjust-size-windows-after-delete-window (deleted-window
  
positive.code:   (when (floating-window-p window)
      (setf (frame-modified-floating-windows (current-frame)) t))
    (set-window-width width window)
    (setf (window-%height window) height)
    (screen-set-size (window-screen window)
                     width
                     (- height
  
negative.code:   (%shrink-windows window-list
                     #'collect-top-windows
                     (lambda (window)
                       (< 2 (window-height window)))
                     n 0 n 0))
  
  (defun shrink-bottom-windows (window-list n)
    (%shrink-windows window-list
                     #'collect-bottom-windows
                     (lambda (window)
                       (< 2 (window-height window)))
                     n 0 0 0))
  
  (defun shrink-left-windows (window-list n)
  