anchor.diff:  
   (defvar *lem-error-file* "~/.lem-error")
   (defvar *initialized-p* nil)
  +(defvar *running-p* nil)
   
   (defvar *exit*)
   
  
positive.code:     (lem-finallize)))
  
  (defun check-init ()
    (when *initialized-p*
      (error "~a is already initialized" *program-name*)))
  
  (defun lem (&rest args)
  
negative.code:   (charms/ll:endwin)
    (dolist (window (cons *minibuf-window* (window-list)))
      (charms/ll:delscreen (window-win window)))
    (charms/ll:delscreen charms/ll:*stdscr*)
    (setq *running-p* nil))
  
  (defun lem-internal (args debug-p)
    (unwind-protect
  