mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

The value of *CURRENT-PROCESS* must be bound by ecl_import_current_thread().

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-09 22:20:01 +01:00
parent 82c6a8e149
commit c5d7b4c960
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -401,6 +401,8 @@ ecl_import_current_thread(cl_object name, cl_object bindings)
/* Activate the barrier so that processes can immediately start waiting. */
mp_barrier_unblock(1, process->process.exit_barrier);
process->process.phase = ECL_PROCESS_ACTIVE;
ecl_bds_bind(env, @'mp::*current-process*', process);
return 1;
}
@ -775,6 +777,7 @@ init_threads(cl_env_ptr env)
process->process.woken_up = ECL_NIL;
process->process.queue_record = ecl_list1(process);
process->process.start_spinlock = ECL_NIL;
process->process.exit_barrier = ecl_make_barrier(process->process.name, MOST_POSITIVE_FIXNUM);
env->own_process = process;