anchor.diff:    (setf (screen-x screen) x)
     (setf (screen-y screen) y)
     (charms/ll:mvwin (screen-%scrwin screen) y x)
  -  (charms/ll:mvwin (screen-%modeline-scrwin screen)
  -                   (+ y (screen-height screen))
  -                   x))
  +  (when (screen-%modeline-scrwin screen)
  +    (charms/ll:mvwin (screen-%modeline-scrwin screen)
  +                     (+ y (screen-height screen))
  +                     x)))
   
   (defun scrwin-print-string (scrwin x y string attr)
     (cond ((null attr)
  
positive.code:   (charms/ll:wresize (screen-%scrwin screen)
                       height
                       width)
    (charms/ll:mvwin (screen-%modeline-scrwin screen)
                     (+ (screen-y screen) height)
                     (screen-x screen))
    (charms/ll:wresize (screen-%modeline-scrwin screen)
                       (minibuffer-window-height)
                       width)
    (setf (screen-lines screen)
          (make-array height :initial-element nil))
    (setf (screen-old-lines screen)
  
negative.code: 
  (defun screen-delete (screen)
    (charms/ll:delwin (screen-%scrwin screen))
    (when (screen-%modeline-scrwin screen)
      (charms/ll:delwin (screen-%modeline-scrwin screen))))
  
  (defun screen-clear (screen)
    (screen-modify screen)
    (charms/ll:clearok (screen-%scrwin screen) 1)
    (when (screen-%modeline-scrwin screen)
      (charms/ll:clearok (screen-%modeline-scrwin screen) 1)))
  
  (defun screen-erase (screen)
    (charms/ll:werase (screen-%scrwin screen)))
  