anchor.diff:      (let* ((view-charpos (point-charpos view-point))
              (cursor-y (if focus-window-p
                            (count-lines view-point cursor-point)
  -                         0))
  -           (cursor-x (if focus-window-p
  -                         (point-charpos cursor-point)
                            0)))
         (loop :for y :from 0
               :for i :from 0
  
positive.code:                                     screen-width
                                      view-charpos
                                      cursor-y
                                      cursor-x
                                      y
                                      str/attributes))
                       (cond
  
negative.code:                      (setf start i))))
      point-y))
  
  (defun screen-display-line (screen screen-width view-charpos cursor-y point-y str/attributes)
    (declare (ignore view-charpos))
    (let ((start-x (screen-left-width screen))
          start
          end)
  