anchor.diff:      (f window-tree)))
   
   (defun load-window-tree (dumped-tree)
  -  (do-window-tree (window (window-tree))
  +  (dolist (window (window-list))
       (charms/ll:delwin (window-screen window)))
     (let ((current-window nil))
       (labels ((f (dumped-tree)
  
positive.code:     (f tree)
      nil))
  
  (defmacro do-window-tree ((var tree) &body body)
    `(window-tree-map ,tree #'(lambda (,var) ,@body)))
  
  (defun window-tree-flatten (tree)
    (let ((windows))
      (window-tree-map tree
  
negative.code: 
  (defun adjust-screen-size ()
    (let ((delete-windows))
      (dolist (window (window-list))
        (when (<= charms/ll:*lines*
                  (+ (window-y window) 2))
          (push window delete-windows))
  