anchor.diff:  (defun repl-buffer ()
     (get-buffer "*lisp-repl*"))
   
  +(defun ensure-repl-buffer-exist ()
  +  (let ((buffer (repl-buffer)))
  +    (unless buffer
  +      (with-current-window (current-window)
  +        (start-lisp-repl))
  +      (setf buffer (repl-buffer)))
  +    buffer))
  +
   (defun repl-set-prompt (point)
     (insert-string point
                    (format nil "~A> " (connection-prompt-string *connection*)))
  
positive.code: (defvar *repl-history* '())
  
  (defun listener-eval (string)
    (request-listener-eval
     *connection*
     string
     (lambda (value)
       (declare (ignore value))
       (lem.listener-mode:listener-reset-prompt (repl-buffer))
       (when *record-history-of-repl*
         (start-timer 0 nil
                      (lambda ()
  
negative.code:         'repl-read-line))
  
  (defun clear-repl ()
    (when (repl-buffer)
      (lem.listener-mode:clear-listener (repl-buffer))))
  
  (defun get-repl-window ()
    (let ((buffer (repl-buffer)))
      (when buffer
        (if (eq buffer (window-buffer (current-window)))
            (current-window)
            (first (get-buffer-windows buffer))))))
  
  (defun repl-buffer-width ()
    (alexandria:when-let* ((window (get-repl-window))
  