Fix typos in docstrings and function names.

[sbcl.git] / src / code / barrier.lisp

diff --git a/src/code/barrier.lisp b/src/code/barrier.lisp
index 80ff65c..84da322 100644 (file)
--- 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.