(defun repl-eval (string)
   (clear-user-input)
   (with-buffer-syntax ()
     (with-retry-restart (:msg "Retry SLIME REPL evaluation request.")
       (track-package
        (lambda ()
          (multiple-value-bind (values last-form) (eval-region string)
            (setq *** **  ** *  * (car values)
                  /// //  // /  / values
                  +++ ++  ++ +  + last-form)
            (funcall *send-repl-results-function* values))))))
   nil)