anchor.diff:  
   (defun write-string-to-repl (string)
     (let ((buffer (repl-buffer)))
  -    (when 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))))
  -
  -(defparameter *fresh-output-buffer-p* t)
  -
  -(defun write-string-to-output-buffer (string)
  -  (with-pop-up-typeout-window (stream (make-buffer "*lisp-output*"))
  -    (when *fresh-output-buffer-p*
  -      (setq *fresh-output-buffer-p* nil)
  -      (fresh-line stream)
  -      (terpri stream)
  -      (princ '*** stream)
  -      (terpri stream))
  -    (princ string stream)))
  -
  -(defun refresh-output-buffer ()
  -  (setq *fresh-output-buffer-p* t))
  +    (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)
   
  
positive.code:                  (end point))
        (scan-lists end 1 0)
        (let ((string (points-to-string start end)))
          (refresh-output-buffer)
          (if (ppcre:scan "^\\(defvar(?:\\s|$)" string)
              (re-eval-defvar string)
              (interactive-eval string))))))
  
  (define-command lisp-eval-region (start end) ("r")
    (check-connection)
    (refresh-output-buffer)
    (eval-with-transcript
     `(swank:interactive-eval-region
       ,(points-to-string start end))))
  
negative.code:     (setf filename (buffer-filename (current-buffer))))
    (when (and (cl-fad:file-exists-p filename)
               (not (cl-fad:directory-pathname-p filename)))
      (eval-with-transcript `(swank:load-file ,filename))))
  
  (defun get-operator-name ()
  