anchor.diff:    (charms/ll:raw)
     (charms/ll:nonl)
     (charms/ll:refresh)
  -  (cond ((not *init-flag*)
  -         (setq *init-flag* t)
  +  (cond ((not *initialized-p*)
  +         (setq *initialized-p* t)
            (window-init)
            (minibuf-init)
            (with-error-handler ()
  
positive.code:                           (background nil)
                            (title *program-name*)
                            (font nil))
    (let* ((tty-name (new-xterm geometry foreground background title font))
           (io (fopen tty-name "r+")))
      (setq *xterm-fd* (fileno io))
  
negative.code:       (lem-main debug-p))
      (lem-finallize)))
  
  (defun check-init ()
    (when *initialized-p*
      (error "~a is already initialized" *program-name*)))
  
  (defun lem (&rest args)
    (check-init)
    (charms/ll:initscr)
    (lem-internal args nil))
  
  (defun lem-save-error (&rest args)
    (check-init)
    (charms/ll:initscr)
    (lem-internal args t))
  
  