[nongnu] elpa/slime 8bd5d67a62 3/4: Fix creating a second server.

[ELPA Syncer]

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

    Fix creating a second server.
---
 swank.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/swank.lisp b/swank.lisp
index f03e6e6547..ff4b0b26ef 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -735,7 +735,8 @@ e.g.: (restart-loop (http-request url) (use-value (new) 
(setq url new)))"
       (ecase style
         (:spawn (initialize-multiprocessing
                  (lambda ()
-                   (if dont-close
+                   (if (or dont-close
+                           *main-thread-used*)
                        (spawn #'serve-loop :name (format nil "Swank ~s" port))
                        (serve-loop)))))
         ((:fd-handler :sigio)
@@ -770,7 +771,8 @@ first."
                                                  :buffering t)))
            (authenticate-client client)
            (when (and (not dont-close)
-                      (eq style :spawn))
+                      (eq style :spawn)
+                      (not *main-thread-used*))
              (setf *main-thread* (current-thread)
                    *main-thread-used* nil))
            (serve-requests (setf connection (make-connection socket client 
style))))