anchor.diff:    (cl-charms/low-level:mvwaddstr win y (str-width str x) (string (schar str x)))
     (cl-charms/low-level:wattroff win attr))
   
  -(defun window-print-line (window y str offset-column)
  +(defun window-print-line (window y str)
     (check-type str fatstring)
     (loop
       :with x := 0 :and win := (window-win window)
  
positive.code:                                  y
                                   (if wrapping-flag
  				     (fat-concat str "\\")
                                       str)
                                   offset-column)
                (when wrapping-flag
                  (incf y)
                  (incf (window-wrap-count window)))
                (incf offset-column (fat-length str)))))))
    (values curx cury y))
  
  (defun window-refresh-lines (window)
  
negative.code:       (setq curx (str-width (fat-string str) (window-cur-col window))))
      (let ((strings (divide-line-width str ncols)))
        (if (null (cdr strings))
            (window-print-line window y str)
            (do ((rest-strings strings (cdr rest-strings)))
                ((or (null rest-strings)
                     (>= y (1- (window-nlines window)))))
              (let ((str (car rest-strings))
  