anchor.diff:  (defvar *use-new-vertical-move-function* t)
   (defvar *use-cursor-movement-workaround* t)
   
  -(defun floating-windows (&optional (frame (first *frame-list*)))
  -  (frame-floating-windows frame))
  -(defun (setf floating-windows) (new-floating-windows)
  -  (let ((frame (first *frame-list*)))  ;; TODO: to parametrize
  -    (setf (frame-floating-windows frame) new-floating-windows)))
  -
  -(defun header-windows (&optional (frame (first *frame-list*)))
  -  (frame-header-windows frame))
  -(defun (setf header-windows) (new-header-windows)
  -  (let ((frame (first *frame-list*)))  ;; TODO: to parametrize
  -    (setf (frame-header-windows frame) new-header-windows)))
  -
  -(defun modified-floating-windows (&optional (frame (first *frame-list*)))
  -  (frame-modified-floating-windows frame))
  -(defun (setf modified-floating-windows) (new-modified-floating-windows)
  -  (let ((frame (first *frame-list*)))  ;; TODO: to parametrize
  -    (setf (frame-modified-floating-windows frame) new-modified-floating-windows)))
  -
  -(defun modified-header-windows (&optional (frame (first *frame-list*)))
  -  (frame-modified-header-windows frame))
  -(defun (setf modified-header-windows) (new-modified-header-windows)
  -  (let ((frame (first *frame-list*)))  ;; TODO: to parametrize
  -    (setf (frame-modified-header-windows frame) new-modified-header-windows)))
  -
   (defclass window ()
     ((id
       :initform (mod (incf *window-id-counter*) most-positive-fixnum)
  
positive.code:                                :width width
                                 :height height
                                 :use-modeline-p use-modeline-p)))
      (push window (floating-windows))
      window))
  
  (defmethod %delete-window ((window floating-window))
    (when (eq window (current-window))
      (editor-error "Can not delete this window"))
    (setf (modified-floating-windows) t)
    (setf (floating-windows)
          (delete window (floating-windows))))
  
  (defun floating-window-p (window)
    (typep window 'floating-window))
  
negative.code:          nil)
          ((window-tree-find (window-tree) window)
           nil)
          ((find window (frame-floating-windows (get-impl-frame)))
           nil)
          (t t)))
  
  