anchor.diff:                    :old-lines (make-array (max 0 height) :initial-element nil))))
   
   (defun screen-delete (screen)
  -  (charms/ll:delwin (screen-%scrwin screen))
  -  (when (screen-%modeline-scrwin screen)
  -    (charms/ll:delwin (screen-%modeline-scrwin screen))))
  +  (interface-delete-view *implementation* (screen-view screen)))
   
   (defun screen-clear (screen)
     (screen-modify screen)
  -  (charms/ll:clearok (screen-%scrwin screen) 1)
  -  (when (screen-%modeline-scrwin screen)
  -    (charms/ll:clearok (screen-%modeline-scrwin screen) 1)))
  +  (interface-clear *implementation* (screen-view screen)))
   
   (defun screen-height (screen)
     (length (screen-lines screen)))
  
positive.code:                 (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)))))
  
  #+(or)
  (progn
  
negative.code: 
  (defun screen-set-size (screen width height)
    (screen-modify screen)
    (when (screen-use-modeline-p screen)
      (decf height))
    (interface-set-view-size *implementation* (screen-view screen) width height)
    (setf (screen-left-lines screen)
          (make-array height :initial-element nil))
    (setf (screen-lines screen)
  