anchor.diff:            run-xterm-p))
   
   (defvar *lem-error-file* "~/.lem-error")
  -(defvar *init-flag* nil)
  +(defvar *initialized-p* nil)
   
   (defvar *exit*)
   
  
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:       (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))
  
  