X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbarrier.lisp;h=84da322200a649b09405a75281cb77dd58d5faaf;hb=26ac616b6783b8841ccda8b4f1caa7d898d91b86;hp=80ff65c635af0d500dffbef37eb17f5fe946cef7;hpb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;p=sbcl.git

diff --git a/src/code/barrier.lisp b/src/code/barrier.lisp
index 80ff65c..84da322 100644
--- a/src/code/barrier.lisp
+++ b/src/code/barrier.lisp
@@ -45,7 +45,7 @@
   (or (getf *barrier-kind-functions* kind)
       (error "Unknown barrier kind ~S" kind)))
 
-(defmacro barrier ((kind) &body forms)
+(def!macro barrier ((kind) &body forms)
     "Insert a barrier in the code stream, preventing some sort of
 reordering.