anchor.diff:        (setf (window-%height window) height)
         (split-window-after window new-window :vsplit)
         (lem-if:split-window-vertically (implementation)
  -                                      (screen-view (window-screen window))
  -                                      (screen-view (window-screen new-window))))))
  +                                      (window-view window)
  +                                      (window-view new-window)))))
   
   (defun split-window-horizontally (window &optional width)
     (unless (minibuffer-window-p 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: (defun window-buffer (&optional (window (current-window)))
    (window-%buffer window))
  
  (defun window-view (window)
    (screen-view (window-screen window)))
  
  (defun find-window (id)
    (window-tree-find-if (window-tree)
                         (lambda (window)
  