branch: elpa/slime
commit f12bec08fa43e02c3e15550d5e4a2652939768cf
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@gmail.com>
accept-connections: clean unwind if there's no connection.
---
swank.lisp | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/swank.lisp b/swank.lisp
index 476d84f4e8..8664b4bb27 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -734,7 +734,8 @@ first."
(serve-requests (setf connection (make-connection socket client
style))))
(unless dont-close
(%stop-server :socket socket)
- (when (eq style :spawn)
+ (when (and connection
+ (eq style :spawn))
(with-connection (connection)
(loop
(dcase (wait-for-event `(:run-on-main-thread _))
