anchor.diff:  (defun collect-right-windows (window-list)
     (lem-utils:max-if (lambda (window)
                         (+ (window-x window)
  -                         (window-%width window)))
  +                         (window-width window)))
                       window-list))
   
   (defun collect-top-windows (window-list)
  
positive.code:                        (- (window-width window) width *window-left-margin*)
                         (window-height window)
                         t)))
      (setf (window-%width window) width)
      (split-window-after window new-window :hsplit)
      (lem-if:split-window-horizontally (implementation)
                                        (window-view window)
                                        (window-view new-window))))
  
  (defun split-window-sensibly (window)
    (if (< *window-sufficient-width* (window-%width window))
        (split-window-horizontally window)
        (split-window-vertically window)))
  
  
negative.code:                                  (window-x win)
                                   (window-y deleted-window))
                   (window-set-size win
                                    (window-width win)
                                    (+ (window-%height deleted-window)
                                       (window-%height win)))))
                (t
                 (dolist (win (lem-utils:max-if #'window-y window-list))
                   (window-set-size win
                                    (window-width win)
                                    (+ (window-%height deleted-window)
                                       (window-%height win)))))))))
  
  