Changeset 13994

Timestamp:

07/05/12 15:25:53 (9 years ago)

Author:

rschlatte

Message:

Fix mailbox-send

Patch by Uchida Yasuo (armedbear-devel Jul 5, 2012)

File:

• trunk/abcl/src/org/armedbear/lisp/threads.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/threads.lisp

@@ -57 +57 @@
 to wake up for retrieval of that object."
   (threads:synchronized-on mailbox
-     (push (mailbox-queue mailbox) item)
+     (push item (mailbox-queue mailbox))
      (threads:object-notify mailbox)))