anchor.diff:  (defun display-finalize ()
     (term-finalize))
   
  -(define-interface display-width () charms/ll:*cols*)
  -(define-interface display-height () charms/ll:*lines*)
  -
  -(define-interface call-with-screen (function)
  +(define-implementation display-width () charms/ll:*cols*)
  +(define-implementation display-height () charms/ll:*lines*)
  +
  +(define-implementation call-with-screen (function)
     (unwind-protect (progn
                       (display-init)
                       (funcall function))
  
positive.code:                    (setf x (char-width char x)))))
    (charms/ll:wattroff scrwin attr))
  
  (define-interface screen-print-string (screen x y string attribute)
    (scrwin-print-string (screen-%scrwin screen) x y string attribute))
  
  (define-interface screen-move-cursor (screen x y)
    (charms/ll:wmove (screen-%scrwin screen) y x))
  
  
negative.code:     (print-echoarea nil nil)
      (redraw-display)))
  
  (define-implementation print-echoarea (string doupdate-p)
    (charms/ll:werase *echo-area-scrwin*)
    (unless (null string)
      (charms/ll:mvwaddstr *echo-area-scrwin* 0 0 string))
  