/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.208 by heller, Wed Aug 6 19:51:39 2008 UTC revision 1.209 by heller, Wed Aug 6 21:50:37 2008 UTC
# Line 1304  stack." Line 1304  stack."
1304      (receive-if (constantly t)))      (receive-if (constantly t)))
1305    
1306    (defimplementation receive-if (test)    (defimplementation receive-if (test)
1307      (let ((mbox (mailbox (current-thread))))      (let* ((mbox (mailbox (current-thread)))
1308               (mutex (mailbox.mutex mbox)))
1309        (loop        (loop
1310         (check-slime-interrupts)         (check-slime-interrupts)
1311         (sb-thread:with-mutex ((mailbox.mutex mbox))         (sb-thread:with-mutex (mutex)
1312           (let* ((q (mailbox.queue mbox))           (let* ((q (mailbox.queue mbox))
1313                  (tail (member-if test q)))                  (tail (member-if test q)))
1314             (when tail             (when tail

Legend:
Removed from v.1.208  
changed lines
  Added in v.1.209

  ViewVC Help
Powered by ViewVC 1.1.5