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

Fixed typo in mp:get-lock

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-05 12:49:01 +02:00
parent 42fa780cd7
commit 723c9419b4
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/threads.d
View file

@ -496,7 +496,6 @@ mp_giveup_lock(cl_object lock)
cl_object output;
int rc;
@
{
if (type_of(lock) != t_lock)
FEwrong_type_argument(@'mp::lock', lock);
if (lock->lock.holder == the_env->own_process) {
@ -505,7 +504,7 @@ mp_giveup_lock(cl_object lock)
1, lock);
}
lock->lock.counter++;
output = t;
output = Ct;
goto OUTPUT;
}
/* FIXME! This code has a nonzero chance of problems with