anchor.diff:  (defun display-init ()
     (setq *old-display-width* charms/ll:*cols*)
     (setq *old-display-height* charms/ll:*lines*))
  +
  +(defun display-width () charms/ll:*cols*)
  +(defun display-height () charms/ll:*lines*)
   
   (defstruct (screen (:constructor %make-screen))
     %scrwin
  
positive.code: (defun update-display-size ()
    (let ((delete-windows))
      (dolist (window (window-list))
        (when (<= charms/ll:*lines*
                  (+ (window-y window) 2))
          (push window delete-windows))
        (when (<= charms/ll:*cols*
                  (+ (window-x window) 1))
          (push window delete-windows)))
      (mapc #'delete-window delete-windows))
  
negative.code:     (dolist (window (collect-right-windows window-list))
        (window-resize window
                       0
                       (- (display-width)
                          *old-display-width*)))
      (dolist (window (collect-bottom-windows window-list))
        (window-resize window
                       (- (display-height)
                          *old-display-height*)
                       0))
      (setq *old-display-width* (display-width))
      (setq *old-display-height* (display-height))
      (redraw-display)))
  