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: 
  (define-key *global-keymap* (kbd "C-x 1") 'delete-other-windows)
  (define-command delete-other-windows () ()
    (do-window-tree (win (window-tree))
      (unless (eq win (current-window))
        (charms/ll:delwin (window-screen win))))
    (setf (window-tree) (current-window))
  
negative.code:     (f tree)
      nil))
  
  (defun window-tree-flatten (tree)
    (let ((windows))
      (window-tree-map tree
  