diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 4b2d65d7..65777a4d 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1135,3 +1135,12 @@ (defmacro |shellEntry| (dollar n) `(svref ,dollar ,n)) + +(defmacro |assert| (x y) + `(if (null ,x) (|error| ,y))) + + +(defmacro |:| (tag expr) + `(list '|:| ,(mkq tag) ,expr)) + + |