anchor.diff:        (charms/ll:doupdate)))))
   
   (defun window-update-all ()
  -  (do-window-tree (win (window-tree))
  +  (dolist (win (window-list))
       (unless (eq win (current-window))
         (window-update win nil)))
     (window-update (current-window) nil)
  
positive.code: 
  (defun adjust-screen-size ()
    (let ((delete-windows))
      (do-window-tree (window (window-tree))
        (when (<= charms/ll:*lines*
                  (+ (window-y window) 2))
          (push window delete-windows))
  
negative.code: 
  (define-key *global-keymap* (kbd "C-l") 'recenter)
  (define-command recenter () ()
    (dolist (window (window-list))
      (charms/ll:clearok (window-screen window) 1))
    (window-recenter (current-window))
    (syntax-scan-window (current-window))
  