anchor.diff:            window-width
             window-height
             window-buffer
  +          window-view
             window-parameter
             window-redraw
             current-window
  
positive.code:       (setf (window-%width window) width)
        (split-window-after window new-window :hsplit)
        (lem-if:split-window-horizontally (implementation)
                                          (screen-view (window-screen window))
                                          (screen-view (window-screen new-window))))))
  
  (defun split-window-sensibly (window)
    (if (< *window-sufficient-width* (window-%width window))
  
negative.code:                      (window-max-width)
                       (window-max-height)
                       t))
    (lem-if:set-first-view (implementation) (window-view (current-window)))
    (setf (window-tree) (current-window)))
  
  (defun window-recenter (window)
  