mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

process: alloc_process used OBJNULL instead of ECL_NIL

Browse source
This commit is contained in:
Daniel Kochmański 2024-04-06 14:34:13 +02:00
parent fcd9abba71
commit 6b2a0d7ed0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/threads/process.d
View file

@ -338,7 +338,7 @@ alloc_process(cl_object name, cl_object initial_bindings)
process->process.interrupt = ECL_NIL;
process->process.exit_values = ECL_NIL;
process->process.env = NULL;
if (initial_bindings != OBJNULL) {
if (initial_bindings != ECL_NIL) {
array = si_make_vector(ECL_T, ecl_make_fixnum(256),
ECL_NIL, ECL_NIL, ECL_NIL, ECL_NIL);
si_fill_array_with_elt(array, ECL_NO_TL_BINDING, ecl_make_fixnum(0), ECL_NIL);