anchor.diff:     (width
       :initarg :width
       :reader window-width
  -    :accessor window-%width
  +    :writer set-window-width
       :type fixnum)
      (height
       :initarg :height
  
positive.code:                                  (window-x deleted-window)
                                   (window-y win))
                   (window-set-size win
                                    (+ (window-%width deleted-window)
                                       1
                                       (window-%width win))
                                    (window-%height win))))
                (t
                 (dolist (win (lem-utils:max-if #'window-x window-list))
                   (window-set-size win
                                    (+ (window-%width deleted-window)
                                       1
                                       (window-%width win))
                                    (window-%height win)))))
          (cond ((< (window-y deleted-window)
                    (window-y (car window-list)))
  
negative.code: 
  (defun window-resize (window dw dh)
    (window-set-size window
                     (+ (window-width window) dw)
                     (+ (window-%height window) dh))
    (run-hooks *window-size-change-functions* window))
  
  