Loading docker/build-build/start-services.lisp +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") Loading @@ -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)) ;; Loading gwl/depends-on.isc +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)" Loading
docker/build-build/start-services.lisp +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") Loading @@ -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)) ;; Loading
gwl/depends-on.isc +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)"