Exit event loop on sigint and sigterm

adolenc · Jun 17, 2016 · 65a0da7 · 65a0da7
1 parent d2a42a0
commit 65a0da7
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/event-loop.lisp b/src/event-loop.lisp
@@ -12,9 +12,12 @@
                        :catch-app-errors NIL
                        :send-errors-to-eventcb T)))
       (with-event-loop-bindings (event-loop)
-        (as:signal-handler 2 #'(lambda (sig)
-                                 (declare (ignore sig))
-                                 (clean event-loop "Event loop exited.")))
+        (as:signal-handler as:+sigterm+ #'(lambda (sig)
+                                            (declare (ignore sig))
+                                            (clean event-loop "Received sigterm. Event loop exited.")))
+        (as:signal-handler as:+sigint+ #'(lambda (sig)
+                                           (declare (ignore sig))
+                                           (clean event-loop "Received sigint. Event loop exited.")))
         event-loop))))
 
 (defun run-once (event-base)