From d2f760970faf0b1fa69ab8bb54683cb122f2c7fc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 21 Mar 2017 18:33:56 +0100
Subject: [PATCH] fix: sigchld-handler takes key parameter process

---
 src/c/main.d        | 1 +
 src/lsp/process.lsp | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/c/main.d b/src/c/main.d
index 0b754a19e..16bda2905 100755
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -71,6 +71,7 @@ const char *ecl_self;
 
 static int ARGC;
 static char **ARGV;
+/* INV: see ecl_option enum in external.h */
 cl_fixnum ecl_option_values[ECL_OPT_LIMIT+1] = {
 #ifdef GBC_BOEHM_GENGC
   1,              /* ECL_OPT_INCREMENTAL_GC */
diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 6644ca2dc..ee999cc29 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -21,7 +21,8 @@
      (mp:with-lock (*active-processes-lock*)
        ,@body)))
 
-(defun sigchld-handler ()
+(defun sigchld-handler (&key process)
+  (declare (ignore process))
   (let (changed)
     (with-active-processes-lock
       (mapc (lambda (process)