Merge pull request #622 from kchanqvq/master

Close socket gracefully when `slime-quit'
lem-project · May 16, 2023 · 6d88ffb · 6d88ffb
2 parents fd976ed + a171cb0
commit 6d88ffb
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/modes/lisp-mode/lisp-mode.lisp b/modes/lisp-mode/lisp-mode.lisp
@@ -99,7 +99,7 @@
 (defun remove-and-change-connection (connection)
   (remove-connection connection)
   (when (eq connection (current-connection))
-    (setf (current-connection) (first (connection-list))))
+    (change-current-connection (first (connection-list))))
   (values))
 
 (defvar *self-connected-port* nil)
@@ -1153,7 +1153,8 @@
              (kill-buffer buffer))
            (lem-process:delete-process (connection-process connection))
            t)
-    (remove-and-change-connection connection)))
+    (remove-and-change-connection connection)
+    (usocket:socket-close (lem-lisp-mode/swank-protocol::connection-socket connection))))
 
 (define-command slime-quit () ()
   (when (self-connection-p (current-connection))