anchor.diff:      (when (prompt-for-y-or-n-p "Save file")
         (save-buffer)))
     (let ((file (buffer-filename (current-buffer))))
  -    (refresh-output-buffer)
       (lisp-eval-async `(swank:compile-file-for-emacs ,file t)
                        #'compilation-finished)))
   
  
positive.code:                     (:line
                       ,(line-number-at-point (current-point))
                       ,(point-charpos (current-point))))))
      (refresh-output-buffer)
      (lisp-eval-async `(swank:compile-string-for-emacs ,string
                                                        ,(buffer-name (current-buffer))
                                                        ',position
  
negative.code:                  (end point))
        (scan-lists end 1 0)
        (let ((string (points-to-string start end)))
          (if (ppcre:scan "^\\(defvar(?:\\s|$)" string)
              (re-eval-defvar string)
              (interactive-eval string))))))
  
  (define-command lisp-eval-region (start end) ("r")
    (check-connection)
    (eval-with-transcript
     `(swank:interactive-eval-region
       ,(points-to-string start end))))
  