anchor.diff:          (cury (window-cursor-y-not-wrapping window))
           (refresh-line
            (get-window-refresh-line-function window)))
  -    (setf (window-wrap-ylist window) nil)
       (loop
         :with y := 0
         :for str :across (buffer-display-lines
  
positive.code:   vtop-linum
    vtop-charpos
    point-marker
    wrap-ylist
    redraw-flag
    delete-hook
    parameters)
  
negative.code:                         :buffer buffer
                          :disp-lines (make-array (1- winheight) :initial-element nil)
                          :vtop-linum 1
                          :vtop-charpos 0)))
      (charms/ll:keypad (window-win window) 1)
      (setf (window-point-marker window)
            (make-marker buffer (make-point 1 0)))
  