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)