anchor.diff:        (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))
  +  (%free-window window)
     t)
   
   (defun collect-left-windows (window-list)
  
positive.code:                         (cdr dumped-tree)
                        (let ((window (make-window (get-buffer-create buffer-name)
                                                   x y width height)))
                          (setf (window-view-marker window) view-marker)
                          (setf (window-delete-hook window) delete-hook)
                          (setf (window-parameters window) parameters)
                          (point-set point window)
  
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))
  