anchor.diff:                         (push i (screen-wrap-lines screen)))))
                    (setf y y2)
                    (incf y))
  -               (charms/ll:wclrtoeol (screen-%scrwin screen)))
  +               )
                 (t
  +               (charms/ll:wmove (screen-%scrwin screen) y 0)
                  (charms/ll:wclrtobot (screen-%scrwin screen))
                  (return)))))
       (screen-move-cursor screen curx cury)))
  
positive.code:          (minibuf-window-update))
          (t
           (window-see window)
           ;(charms/ll:werase (screen-%scrwin (window-screen window)))
           (screen-display-lines (window-screen window)
                                 (window-buffer window)
                                 (window-vtop-charpos window)
  
negative.code:                  (dotimes (_ n)
                     (push i (screen-wrap-lines screen)))))
                (str
                 (charms/ll:wmove (screen-%scrwin screen) y 0)
                 (charms/ll:wclrtoeol (screen-%scrwin screen))
                 (setf (aref (screen-old-lines screen) i) str)
                 (let (y2)
                   (multiple-value-setq (curx cury y2)
  