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