mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix: sigchld-handler takes key parameter process

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-21 18:33:56 +01:00
parent 135a43a027
commit d2f760970f
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/main.d
View file

@ -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 */

3
src/lsp/process.lsp
View file

@ -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)