X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-thread.lisp;h=ddc0127276ff3cd75c6ac8950a440938b227cccf;hb=6e60dc9f79037ab84f5bfd8568979c24291c9922;hp=36823300f0abc151e406e350c24dbc0acfcec0d7;hpb=b56c1a4dc22aa0ac827343667584aa6090b15f02;p=sbcl.git

diff --git a/src/code/cross-thread.lisp b/src/code/cross-thread.lisp
index 3682330..ddc0127 100644
--- a/src/code/cross-thread.lisp
+++ b/src/code/cross-thread.lisp
@@ -23,3 +23,6 @@
   (declare (ignore mutex))
   `(locally ,@body))
 
+(defmacro barrier ((kind) &body body)
+  (declare (ignore kind))
+  `(progn ,@body))