mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

mp:mailbox-empty-p returned the opposite value.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-07 01:07:02 +02:00
parent ad49125681
commit 748eb30ebe
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/mailbox.d
View file

@ -87,7 +87,7 @@ mp_mailbox_empty_p(cl_object mailbox)
unlikely_if (type_of(mailbox) != t_mailbox) {
FEerror_not_a_mailbox(mailbox);
}
ecl_return1(env, mailbox->mailbox.reader_semaphore->semaphore.counter? Ct : Cnil);
ecl_return1(env, mailbox->mailbox.reader_semaphore->semaphore.counter? Cnil : Ct);
}
cl_object