Commit a4db7190 authored by Dave Cooper's avatar Dave Cooper
Browse files

added exit on sigterm

parent 34ccbdbe
Loading
Loading
Loading
Loading
Loading
+15 −2
Original line number Diff line number Diff line
(in-package :common-lisp-user)


(defun exit-on-signal (signo)
  (format t "~&received ~A~%"
	  (trivial-signal:signal-name signo))
  (case signo
    ((15 9) (uiop:quit 0))
    (t (format t "Doing nothing.~%"))))

(setf (signal-handler :term) #'exit-on-signal)

;; now run `kill -15 $PID` on the terminal to run `exit-on-signal`


(flet ((true? (val) (and val (not (or (and (stringp val)
                                           (or (string-equal val "false")
@@ -15,7 +26,9 @@

    (when start-http? (gendl:start-gendl!))
    (when start-https? (gwl:start-gwl :https? t))
    (when start-swank? (swank:create-server :port (parse-integer (or (uiop:getenv "SWANK_PORT") 4200))
    (when start-swank?
      (swank:create-server
       :port (parse-integer (or (uiop:getenv "SWANK_PORT") 4200))
       :interface "0.0.0.0" :dont-close t))
    ;;

+1 −1
Original line number Diff line number Diff line
"(:glisp #-allegro :cl-html-parse #+(or ccl sbcl allegro) :zaserve  #-(or ccl sbcl allegro) :aserve :cl-who :yason :cl-markdown :cl-json)"
"(:glisp #-allegro :cl-html-parse #+(or ccl sbcl allegro) :zaserve  #-(or ccl sbcl allegro) :aserve :cl-who :yason :cl-markdown :cl-json :trivial-signal)"