anchor.diff:                                      screen-width
                                       view-charpos
                                       cursor-y
  -                                    cursor-x
                                       y
                                       str/attributes))
                        (cond
  
positive.code:     (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
  
negative.code: 
  (defvar *truncate-character* #\\)
  
  (defun screen-display-line-wrapping (screen screen-width view-charpos cursor-y point-y str/attributes)
    (declare (ignore cursor-y))
    (when (and (< 0 view-charpos) (= point-y 0))
      (setf str/attributes
            (cons (subseq (car str/attributes) view-charpos)
  