anchor.diff:        (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))
   
  
positive.code:   (charms/ll:raw)
    (charms/ll:nonl)
    (charms/ll:refresh)
    (cond ((not *init-flag*)
           (setq *init-flag* t)
           (window-init)
           (minibuf-init)
           (with-error-handler ()
  
negative.code:                           (background nil)
                            (title *program-name*)
                            (font nil))
    (check-init)
    (let* ((tty-name (new-xterm geometry foreground background title font))
           (io (fopen tty-name "r+")))
      (setq *xterm-fd* (fileno io))
  