anchor.diff:            :do (return-from prompt-for-impl command))))
   
   (defun run-slime (command)
  +  (unless command
  +    (setf command (get-lisp-command :impl *impl-name*)))
     (uiop:with-current-directory ((or (buffer-directory) (uiop:getcwd)))
       (uiop:run-program command :output nil :error-output nil))
     (sleep 0.5)
  
positive.code:                         (connection-command *connection*))))
      (when (slime-quit)
        (sit-for 3)
        (slime-1 last-command))))
  
  (define-command slime-self-connect (&optional (start-repl t))
      ((list t))
  
negative.code:       (error condition)))
    (add-hook *exit-editor-hook* 'slime-quit*))
  
  (define-command slime (&optional ask-impl) ("P")
    (let ((command (if ask-impl (prompt-for-impl))))
      (run-slime command)))
  
  (define-command slime-quit () ()
    (when *connection*
  