anchor.diff:      (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)
  
positive.code: (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)
  
negative.code:                                                       ,(buffer-filename (current-buffer))
                                                        nil)
                       #'compilation-finished)))
  
  (define-command lisp-compile-defun () ()
    (check-connection)
  