[nongnu] elpa/slime e0cd8b898d 2/3: Fix a disconnection test.

[ELPA Syncer]

branch: elpa/slime
commit e0cd8b898dc4293e9700098c6f5569a5f1d60b60
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    Fix a disconnection test.
---
 slime.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/slime.el b/slime.el
index cfc83e539f..1827c7ff43 100644
--- a/slime.el
+++ b/slime.el
@@ -1848,7 +1848,8 @@ This is automatically synchronized from Lisp.")
 
 (defun slime-insert-inferior-lisp-output (string)
   (let ((slime-dispatching-connection slime-inferior-lisp-connected))
-    (when slime-dispatching-connection
+    (when (and slime-dispatching-connection
+               (eq (process-status slime-dispatching-connection) 'open))
       (funcall slime-terminal-output-function string)))
   string)