anchor.diff:                       (window-max-width)
                        (window-max-height)
                        t))
  -  (lem-if:set-first-view (implementation) (screen-view (window-screen (current-window))))
  +  (lem-if:set-first-view (implementation) (window-view (current-window)))
     (setf (window-tree) (current-window)))
   
   (defun window-recenter (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-width
            window-height
            window-buffer
            window-view
            window-parameter
            window-redraw
            current-window
  