tjhintz/cl-init
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle shutdown more gracefully.

Browse Source
This commit is contained in:
Thomas Hintz
2014-03-09 10:40:34 -07:00
parent 7a26e3dd71
commit d559c6e063
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
cl-init.lisp
View File

@@ -18,15 +18,19 @@
(apply *start-thunk* nil) (apply *start-thunk* nil)
(format t "external process running~%") (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~%") (format t "stopping external process~%")
(apply *stop-thunk* nil) (apply *stop-thunk* nil)
(format t "external process stopped~%stopping swank~%") (format t "external process stopped~%stopping swank~%")
(swank:stop-server *swank-port*) (swank:stop-server *swank-port*)
(format t "swank stopped~%") (format t "swank stopped~%")
(princ "server shutdown complete" stream)))
(ccl:quit)) (ccl:quit))
(defparameter socket (ccl:make-socket :local-port 6200 :connect :passive))
(defparameter stream (ccl:accept-connection socket))