mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

We have to allocate and set the environment before being able to call alloc_process in ecl_import_current_thread.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-15 15:27:13 +02:00
parent 69725f20c6
commit fd8dca7a4d
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/threads.d
View file

@ -224,14 +224,15 @@ ecl_import_current_thread(cl_object name, cl_object bindings)
return;
}
}
env = _ecl_alloc_env();
ecl_set_process_env(env);
process = alloc_process(name, bindings);
process->process.active = 1;
process->process.thread = current;
env = process->process.env = _ecl_alloc_env();
process->process.env = env;
THREAD_OP_LOCK();
cl_core.processes = CONS(process, cl_core.processes);
THREAD_OP_UNLOCK();
ecl_set_process_env(env);
ecl_init_env(env);
env->bindings_hash = process->process.initial_bindings;
init_big_registers(env);