anchor.diff:            (t
              (window-redraw (minibuffer-window) force)
              (window-redraw (current-window) force)))
  -    (dolist (window (header-windows))
  +    (dolist (window (frame-header-windows (get-impl-frame)))
         (window-redraw window (redraw-after-modifying-floating-window (implementation))))
  -    (dolist (window (floating-windows))
  +    (dolist (window (frame-floating-windows (get-impl-frame)))
         (window-redraw window (redraw-after-modifying-floating-window (implementation))))
       (update-display)))
   
   (defun change-display-size-hook ()
  -  (dolist (window (header-windows))
  +  (dolist (window (frame-header-windows (get-impl-frame)))
       (window-set-size window (display-width) 1))
     (adjust-windows (window-topleft-x)
                     (window-topleft-y)
  
positive.code:                   (%window-point new-window)))
      (setf (frame-current-window frame) new-window)))
  
  (defun window-tree (&optional (frame (first *frame-list*)))
    (frame-window-tree frame))
  
  (defun (setf window-tree) (new-window-tree)
    (let ((frame (first *frame-list*)))
      (setf (frame-window-tree frame) new-window-tree)))
  
  (defstruct (window-node (:constructor %make-window-node))
  
negative.code: (defmethod initialize-instance ((window header-window) &key &allow-other-keys)
    (with-slots (x y width height) window
      (setf x 0)
      (setf y (length (frame-header-windows (get-impl-frame))))
      (setf width (display-width))
      (setf height 1))
    (push window (frame-header-windows (get-impl-frame)))
    (setf (frame-modified-header-windows (get-impl-frame)) t)
    (call-next-method))
  
  (defmethod %delete-window ((window header-window))
    (setf (frame-header-windows (get-impl-frame))
          (delete window (frame-header-windows (get-impl-frame))))
    (setf (frame-modified-header-windows (get-impl-frame)) t))
  
  (defun redraw-display (&optional force)
    (without-interrupts
      (when (frame-modified-header-windows (get-impl-frame))
        (setf (frame-modified-header-windows (get-impl-frame)) nil)
        (change-display-size-hook))
      (dolist (window (window-list))
        (unless (eq window (current-window))
  