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