anchor.diff:    (or (lem.term:term-set-background name)
         (error "Undefined color: ~A" name)))
   
  -(defun display-width () (max 5 charms/ll:*cols*))
  -(defun display-height () (max 3 charms/ll:*lines*))
  +(defun display-width () (interface-display-width *implementation*))
  +(defun display-height () (interface-display-height *implementation*))
   
   (defun call-with-screen (function)
     (unwind-protect (progn
  
positive.code: 
  (defun screen-set-size (screen width height)
    (screen-modify screen)
    (when (screen-%modeline-scrwin screen)
      (decf height))
    (charms/ll:wresize (screen-%scrwin screen)
                       height
                       width)
    (when (screen-%modeline-scrwin screen)
      (charms/ll:mvwin (screen-%modeline-scrwin screen)
                       (+ (screen-y screen) height)
                       (screen-x screen))
      (charms/ll:wresize (screen-%modeline-scrwin screen)
                         (minibuffer-window-height)
                         width))
    (setf (screen-left-lines screen)
          (make-array height :initial-element nil))
    (setf (screen-lines screen)
  
negative.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))
        (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
  