anchor.diff:                          (cdr dumped-tree)
                         (let ((window (make-window (get-buffer-create buffer-name)
                                                    x y width height)))
  -                        (setf (window-view-marker window) view-marker)
  +                        (setf (marker-point (window-view-marker window)) (marker-point view-marker))
                           (setf (window-delete-hook window) delete-hook)
                           (setf (window-parameters window) parameters)
                           (point-set point window)
  
positive.code:       (if (null node2)
            (setf (window-tree) (funcall another-getter))
            (funcall setter2 (funcall another-getter)))))
    (delete-marker (window-view-marker window))
    (delete-marker (window-point-marker window))
    (when (window-delete-hook window)
      (funcall (window-delete-hook window)))
    (screen-delete (window-screen window))
    t)
  
  (defun collect-left-windows (window-list)
  
negative.code: 
  (defun load-window-tree (dumped-tree)
    (dolist (window (window-list))
      (%free-window window))
    (let ((current-window nil))
      (labels ((f (dumped-tree)
                  (if (eq :window (car dumped-tree))
  