anchor.diff:      (setf filename (buffer-filename (current-buffer))))
     (when (and (uiop:file-exists-p filename)
                (not (uiop:directory-pathname-p filename)))
  +    (run-hooks (variable-value 'load-file-functions) filename)
       (eval-with-transcript `(swank:load-file ,filename))))
   
   (defun get-operator-name ()
  
positive.code: (in-package :lem-lisp-mode)
  
  (defparameter *default-port* 4005)
  
  
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
  