anchor.diff:      (setf (window-current-charpos new-window)
             (window-current-charpos current-window))
       (multiple-value-bind (node getter setter)
  -        (window-tree-parent *window-tree* current-window)
  +        (window-tree-parent (window-tree) current-window)
         (if (null node)
  -          (setq *window-tree*
  +          (setf (window-tree)
                   (make-window-node split-type
                                     current-window
                                     new-window))
  
positive.code:                 (+ (window-x window) 1))
          (push window delete-windows)))
      (mapc #'delete-window delete-windows))
    (let ((window-list (window-tree-flatten *window-tree*)))
      (dolist (window (collect-right-windows window-list))
        (window-resize window
                       0
  
negative.code:     (f window-tree)))
  
  (defun load-window-tree (dumped-tree)
    (do-window-tree (window (window-tree))
      (charms/ll:delwin (window-screen window)))
    (let ((current-window nil))
      (labels ((f (dumped-tree)
  