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