projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle compiler-error in LOAD when it's not run from inside EVAL.
[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)))
(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.
"Insert a barrier in the code stream, preventing some sort of
reordering.