[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv15616

Modified Files:
	swank-sbcl.lisp 
Log Message:
(receive-if): Fix typo.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/08/06 19:51:39	1.208
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/08/06 21:50:37	1.209
@@ -1304,10 +1304,11 @@
     (receive-if (constantly t)))
 
   (defimplementation receive-if (test)
-    (let ((mbox (mailbox (current-thread))))
+    (let* ((mbox (mailbox (current-thread)))
+           (mutex (mailbox.mutex mbox)))
       (loop
        (check-slime-interrupts)
-       (sb-thread:with-mutex ((mailbox.mutex mbox))
+       (sb-thread:with-mutex (mutex)
          (let* ((q (mailbox.queue mbox))
                 (tail (member-if test q)))
            (when tail