anchor.diff:              (t
                (return)))
         (incf y))
  -    (setf (window-wrap-ylist window)
  -          (nreverse (window-wrap-ylist window)))
       (charms/ll:wmove (window-win window)
                        cury
                        curx)))
  
positive.code:                (window-print-line window y str :string-start start :string-end i)
                 (window-print-line window y *wrapping-fatstring* :start-x (1- winwidth))
                 (incf y)
                 (push y (window-wrap-ylist window))
                 (setq start i))))
    (values curx cury y))
  
  
negative.code:   vtop-linum
    vtop-charpos
    point-marker
    redraw-flag
    delete-hook
    parameters)
  