anchor.diff:  (pushnew (cons ".lisp$" 'lisp-mode) *auto-mode-alist* :test #'equal)
   (pushnew (cons ".asd$" 'lisp-mode) *auto-mode-alist* :test #'equal)
   (pushnew (cons ".cl$" 'lisp-mode) *auto-mode-alist* :test #'equal)
  +
  +(defun highlight-region (start end attribute name)
  +  (let ((overlay (make-overlay start end attribute)))
  +    (start-timer 100
  +                 nil
  +                 (lambda ()
  +                   (delete-overlay overlay))
  +                 (lambda (err)
  +                   (declare (ignore err))
  +                   (ignore-errors
  +                    (delete-overlay overlay)))
  +                 name)))
  +
  +(defun highlight-compilation-region (start end)
  +  (highlight-region start
  +                    end
  +                    'compilation-region-highlight
  +                    "delete-compilation-region-overlay"))
  +
  +(defun highlight-evaluation-region (start end)
  +  (highlight-region start
  +                    end
  +                    'evaluation-region-highlight
  +                    "delete-evaluation-region-overlay"))
  +
  +(add-hook (variable-value 'before-compile-functions :global)
  +          'highlight-compilation-region)
  +
  +(add-hook (variable-value 'before-eval-functions :global)
  +          'highlight-evaluation-region)
  
positive.code: 
  (define-editor-variable load-file-functions '())
  (define-editor-variable before-compile-functions '())
  
  (define-attribute compilation-region-highlight
    (t :background "orange"))
  
  (defparameter *default-port* 4005)
  (defparameter *localhost* "127.0.0.1")
  
negative.code:     (with-point ((start point)
                   (end point))
        (scan-lists end 1 0)
        (run-hooks (variable-value 'before-eval-functions) start end)
        (let ((string (points-to-string start end)))
          (if (ppcre:scan "^\\(defvar(?:\\s|$)" string)
              (re-eval-defvar string)
  