[armedbear-cvs] r13994 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Thu Jul  5 08:25:53 2012
New Revision: 13994

Log:
Fix mailbox-send

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/threads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/threads.lisp	Thu Jul  5 07:38:30 2012	(r13993)
+++ trunk/abcl/src/org/armedbear/lisp/threads.lisp	Thu Jul  5 08:25:53 2012	(r13994)
@@ -56,7 +56,7 @@
   "Sends an item into the mailbox, notifying 1 waiter
 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)))
 
 (defun mailbox-empty-p (mailbox)