anchor.diff:  (defvar *truncate-str/attributes* (cons " " (list '(0 1 lem::truncate-attribute))))
   
   (defun screen-display-line-wrapping (screen screen-width view-charpos
  -                                            visual-cursor-y
  -                                            point-x point-y str/attributes)
  -  (declare (ignore visual-cursor-y point-x))
  +                                            cursor-y cursor-x
  +                                            point-y str/attributes)
  +  (declare (ignore cursor-y cursor-x))
     (when (and (< 0 view-charpos) (= point-y 0))
       (setf str/attributes
             (cons (subseq (car str/attributes) view-charpos)
  
positive.code:     point-y))
  
  (defun screen-display-line (screen screen-width view-charpos
                                     visual-cursor-y
                                     point-x point-y str/attributes)
    (declare (ignore view-charpos))
    (let ((visual-cursor-x 0)
          (start-x (screen-left-width screen)))
      (when (= visual-cursor-y point-y)
        (setf visual-cursor-x (string-width (car str/attributes) 0 point-x)))
      (let ((cols screen-width))
        (cond
          ((< (string-width (car str/attributes))
              screen-width)
           (disp-print-line screen point-y str/attributes t :start-x start-x))
          ((or (/= visual-cursor-y point-y)
               (< visual-cursor-x (1- cols)))
           (let ((i (wide-index (car str/attributes) (1- cols))))
             (cond ((<= cols (string-width (car str/attributes) 0 i))
  
negative.code:                                       screen-width
                                        view-charpos
                                        cursor-y
                                        cursor-x
                                        y
                                        str/attributes)))
                       (cond
  