:read-string is not interrupted on slime-restart-inferior-lisp

[Affonso-Gui]

How to recreate:

(read)
M-x slime-restart-inferior-lisp
10

What is expected:
The read is aborted and the new evaluation request is processed.

What happens:
The new evaluation request serves as output to the read call and is not evaluated.

*slime-events* abbreviated log:

(:emacs-rex
 (swank-repl:listener-eval "(read)\n")
 "COMMON-LISP-USER" :repl-thread 7)
(:read-string 1 1)
(:emacs-rex
 (swank:quit-lisp)
 "COMMON-LISP-USER" :repl-thread 8)
(:emacs-rex
 (swank:connection-info)
 "COMMON-LISP-USER" t 1)

;; ...

(:emacs-return-string 1 1 "10\n")

The simplest way to solve this would be to add a :read-aborted call, although I am not sure if we should also include a debugger window to prompt the user (similarly to when C-c C-c ing a read).