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

msvc: Compare thread id instead of handlers to check if it is already registered.

Browse source
This commit is contained in:
Fabrizio Fabbri 2017-01-10 10:42:27 +01:00
parent 9eaf33656e
commit 5758af7756
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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