anchor.diff:        (error condition)))
     (add-hook *exit-editor-hook* 'slime-quit*))
   
  -(defun slime-1 (command)
  -  (unless command
  -    (setf command (get-lisp-command :impl *impl-name*)))
  -  (run-slime command))
  -
   (define-command slime (&optional ask-impl) ("P")
     (let ((command (if ask-impl (prompt-for-impl))))
  -    (slime-1 command)))
  +    (run-slime command)))
   
   (define-command slime-quit () ()
     (when *connection*
  
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:           :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)
  