anchor.diff:                  (setf x (screen-print-string screen x y (subseq str prev-end start) nil))
                   (setf x (screen-print-string screen x y (subseq str start end) attr))
                   (setf prev-end end))
  -      (screen-print-string screen x y
  -                           (if (= prev-end 0)
  -                               str
  -                               (subseq str prev-end))
  -                           nil))
  -    (when do-clrtoeol
  -      (charms/ll:wclrtoeol (screen-%scrwin screen)))))
  +      (setf x (screen-print-string screen x y
  +                                   (if (= prev-end 0)
  +                                       str
  +                                       (subseq str prev-end))
  +                                   nil))
  +      (when do-clrtoeol
  +        (interface-clear-eol *implementation* (screen-view screen) x y)))))
   
   #+(or)
   (progn
  
positive.code:           display-width
            display-height))
  
  
  (defvar *print-start-x* 0)
  (defvar *cursor-x* 0)
  (defvar *cursor-y* 0)
  
  (defun attribute-to-bits (attribute-or-name)
    (let ((attribute (ensure-attribute attribute-or-name nil)))
      (if (null attribute)
          0
          (or (lem::attribute-%internal-value attribute)
              (let ((bits (logior (lem.term:get-color-pair (lem::attribute-foreground attribute)
                                                           (lem::attribute-background attribute))
                                  (if (lem::attribute-reverse-p attribute)
                                      charms/ll:a_reverse
                                      0)
                                  (if (lem::attribute-bold-p attribute)
                                      charms/ll:a_bold
                                      0)
                                  (if (lem::attribute-underline-p attribute)
                                      charms/ll:a_underline
                                      0))))
                (setf (lem::attribute-%internal-value attribute) bits)
                bits)))))
  
  (defvar *display-background-mode* nil)
  
  (defun display-background-mode ()
  
negative.code:     (lem.term:term-finalize)))
  
  (defstruct (screen (:constructor %make-screen))
    view
    use-modeline-p
    x
    y
    left-lines
  