anchor.diff:  
   (defun repl-highlight-notes (notes)
     (let ((buffer (repl-buffer)))
  -    (dolist (note notes)
  -      (trivia:match note
  -        ((and (trivia:property :location location)
  -              (trivia:property :message _))
  -         (let* ((xref-loc (source-location-to-xref-location location))
  -                (offset (xref-location-position xref-loc)))
  -           (with-point ((start (buffer-point buffer)))
  -             (move-point start (lem.listener-mode:listener-start-point buffer))
  -             (form-offset start -1)
  -             (character-offset start (if (plusp offset) (1- offset) offset))
  -             (with-point ((end start))
  -               (form-offset end 1)
  -               (put-text-property start end :attribute 'compiler-note-attribute)))))))))
  +    (when buffer
  +      (dolist (note notes)
  +        (trivia:match note
  +          ((and (trivia:property :location location)
  +                (trivia:property :message _))
  +           (let* ((xref-loc (source-location-to-xref-location location))
  +                  (offset (xref-location-position xref-loc)))
  +             (with-point ((start (buffer-point buffer)))
  +               (move-point start (lem.listener-mode:listener-start-point buffer))
  +               (form-offset start -1)
  +               (character-offset start (if (plusp offset) (1- offset) offset))
  +               (with-point ((end start))
  +                 (form-offset end 1)
  +                 (put-text-property start end :attribute 'compiler-note-attribute))))))))))
   
   (defun repl-completion (point)
     (with-point ((p point))
  
positive.code: (defun repl-buffer ()
    (get-buffer "*lisp-repl*"))
  
  (defun repl-set-prompt (point)
    (insert-string point
                   (format nil "~A> " (connection-prompt-string *connection*)))
  
negative.code:       `(,(read-from-string "swank-repl::listener-get-value"))
        (lambda (result)
          (declare (ignore result))
          (lem.listener-mode:listener-reset-prompt (ensure-repl-buffer-exist)))))))
  
  (defun write-string-to-repl (string)
    (let ((buffer (ensure-repl-buffer-exist)))
      (with-point ((start (buffer-end-point buffer) :left-inserting))
        (when (text-property-at start :field -1)
          (insert-character start #\newline))
  