anchor.diff:  (in-package :lem-lisp-mode)
  +
  +(define-editor-variable load-file-functions '())
  +(define-editor-variable before-compile-functions '())
   
   (defparameter *default-port* 4005)
   
  
positive.code:     (when (prompt-for-y-or-n-p "Save file")
        (save-buffer)))
    (let ((file (buffer-filename (current-buffer))))
      (lisp-eval-async `(swank:compile-file-for-emacs ,file t)
                       #'compilation-finished)))
  
  
negative.code:                     (:line
                       ,(line-number-at-point (current-point))
                       ,(point-charpos (current-point))))))
      (run-hooks (variable-value 'before-compile-functions) start end)
      (lisp-eval-async `(swank:compile-string-for-emacs ,string
                                                        ,(buffer-name (current-buffer))
                                                        ',position
  