anchor.diff:      (setf (frame-window-tree frame) window)))
   
   (defun teardown-windows (frame)
  -  (mapc #'%free-window (window-list frame)))
  +  (mapc #'%free-window (window-list frame))
  +  (mapc #'%free-window (frame-floating-windows frame))
  +  (values))
   
   (defun window-recenter (window)
     (line-start
  
positive.code:                  :use-modeline-p use-modeline-p))
  
  (defun clear-screens-of-window-list ()
    (dolist (window (window-list))
      (screen-clear (window-screen window))))
  
  (defgeneric %delete-window (window))
  (defgeneric window-redraw (window force)
  
negative.code:                (window-tree-parent (window-node-cdr tree) node))))))
  
  (defun window-list (&optional (frame (current-frame)))
    (window-tree-flatten (frame-window-tree frame)))
  
  (defun one-window-p ()
    (window-tree-leaf-p (window-tree)))
  