Handle shutdown more gracefully.

cl-init.lisp

@@ -18,15 +18,19 @@
   (apply *start-thunk* nil)
   (format t "external process running~%")
 
-  ; wait for stop signal
+  (ccl:with-open-socket (socket :connect :passive
-  (let* ((socket (ccl:make-socket :local-port *shutdown-port* :connect :passive))
+                                :format :text
-         (stream (ccl:accept-connection socket))) ; wait for anything
+                                :local-port *shutdown-port*
-    (close stream)
+                                :reuse-address t)
-    (close socket))
+    (with-open-stream (stream (ccl:accept-connection socket))
-
       (format t "stopping external process~%")
       (apply *stop-thunk* nil)
       (format t "external process stopped~%stopping swank~%")
       (swank:stop-server *swank-port*)
       (format t "swank stopped~%")
+      (princ "server shutdown complete" stream)))
+
   (ccl:quit))
+
+(defparameter socket (ccl:make-socket :local-port 6200 :connect :passive))
+(defparameter stream (ccl:accept-connection socket))