X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-concurrency%2Fqueue.lisp;fp=contrib%2Fsb-concurrency%2Fqueue.lisp;h=a902785cbdfd9f90edb65d5b8a020afae5c31080;hb=713bb89f472457ec6654732b6b248b17b971f0ff;hp=fec6d0fe818d2e073b2c2842edb64d9b576a0fb1;hpb=d4d54599b5acc39f97ff880507388687b684d36a;p=sbcl.git

diff --git a/contrib/sb-concurrency/queue.lisp b/contrib/sb-concurrency/queue.lisp
index fec6d0f..a902785 100644
--- a/contrib/sb-concurrency/queue.lisp
+++ b/contrib/sb-concurrency/queue.lisp
@@ -66,6 +66,7 @@ and secondary value."
             (tail (queue-tail queue))
             (first-node-prev (node-prev head))
             (val (node-value head)))
+       (barrier (:read))
        (when (eq head (queue-head queue))
          (cond ((not (eq val +dummy+))
                 (if (eq tail head)