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: (defun window-buffer (&optional (window (current-window)))
    (window-%buffer window))
  
  (defun find-window (id)
    (window-tree-find-if (window-tree)
                         (lambda (window)
  
negative.code:           window-width
            window-height
            window-buffer
            window-view
            window-parameter
            window-redraw
            current-window
  