anchor.diff:            self-insert
             lem))
   
  -(defvar *lem-error-file* "~/.lem-error")
   (defvar *running-p* nil)
   (defvar +exit-tag+ (gensym "EXIT"))
   
  
positive.code: 
  (defmacro with-error-handler (() &body body)
    `(handler-case-bind (#'(lambda (condition)
                             (handler-case (popup-backtrace condition)
                               (error (condition)
                                      (exit-editor
                                       (with-output-to-string (stream)
                                         (princ condition stream)
                                         (uiop/image:print-backtrace
                                          :stream stream
                                          :condition condition))))))
                         ,@body)
                        ((condition) (declare (ignore condition)))))
  
  
negative.code: 
  (in-package :lem)
  
  (export '(macro-running-p
            exit-lem
            find-keybind
            describe-key
  