anchor.diff:  (in-package :lem)
   
  -(export '(exit-lem
  +(export '(*lem-error-file*
  +          exit-lem
             describe-key
             begin-macro
             end-macro
  
positive.code: 
  (defun lem-save-error (&rest args)
    (let ((*print-circle* t))
      (with-open-file (*error-output* "ERROR"
                                      :direction :output
                                      :if-exists :overwrite
                                      :if-does-not-exist :create)
  
negative.code:           lem
            lem-save-error))
  
  (defvar *lem-error-file* "~/.lem-error")
  (defvar *init-flag* nil)
  
  (defvar *exit*)
  