anchor.diff:      (setf filename (buffer-filename (current-buffer))))
     (when (and (cl-fad:file-exists-p filename)
                (not (cl-fad:directory-pathname-p filename)))
  -    (refresh-output-buffer)
       (eval-with-transcript `(swank:load-file ,filename))))
   
   (defun get-operator-name ()
  
positive.code:     (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)))
  
  
negative.code: 
  (defun write-string-to-repl (string)
    (let ((buffer (repl-buffer)))
      (unless buffer
        (start-lisp-repl)
        (setf buffer (repl-buffer)))
      (with-open-stream (stream (make-buffer-output-stream (buffer-end-point buffer)))
        (princ string stream))
      (lem.listener-mode:listener-update-point (buffer-end-point buffer))
      (when (eq buffer (current-buffer))
        (buffer-end (current-point)))
      (redraw-display)))
  
  (defvar *wait-message-thread* nil)
  
  