X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-concurrency%2Ftests%2Ftest-mailbox.lisp;h=e6cee14bdd56d16b98fe70ece3782fa77983322f;hb=4255b37e50876702d2563f3418a44a3f5bf8a2e8;hp=db4b2219ef6d2ba53b55bd35634de5efc0478022;hpb=1ecff2d1bc56850bf2f262a56402df4683fc57d9;p=sbcl.git diff --git a/contrib/sb-concurrency/tests/test-mailbox.lisp b/contrib/sb-concurrency/tests/test-mailbox.lisp index db4b221..e6cee14 100644 --- a/contrib/sb-concurrency/tests/test-mailbox.lisp +++ b/contrib/sb-concurrency/tests/test-mailbox.lisp @@ -38,6 +38,7 @@ (3 nil (#\1 #\2 #\3) nil) (0 t nil t)) +#+sb-thread (deftest mailbox-timeouts (let* ((mbox (make-mailbox)) (writers (loop for i from 1 upto 20