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

Fix import thread

Browse source
This commit is contained in:
Fabrizio Fabbri 2016-05-12 12:52:31 -04:00
parent 416a8497a5
commit ca2a0c91e6
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

@ -369,7 +369,7 @@ ecl_import_current_thread(cl_object name, cl_object bindings)
{
cl_object processes = cl_core.processes;
cl_index i, size;
for (i = 0, size = processes->vector.dim; i < size; i++) {
for (i = 0, size = processes->vector.fillp; i < size; i++) {
cl_object p = processes->vector.self.t[i];
if (!Null(p) && p->process.thread == current)
return 0;