diff options
author | dos-reis <gdr@axiomatics.org> | 2008-01-31 15:51:44 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-01-31 15:51:44 +0000 |
commit | a92db17d6671d4b2de5cf615e08033fcc15d45f3 (patch) | |
tree | dca8b64647c148c57728d8a778970b971b851daa /src/interp/sys-macros.lisp | |
parent | fd939b875ff1ed38ac3d22684b0f745705ab834a (diff) | |
download | open-axiom-a92db17d6671d4b2de5cf615e08033fcc15d45f3.tar.gz |
Clean up unlisp.lisp.
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r-- | src/interp/sys-macros.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 04993256..5b433a37 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1137,6 +1137,23 @@ (defmacro SPADREDUCE (OP AXIS BOD) (REDUCE-1 OP AXIS BOD)) +;; +;; -*- Control -*- +;; + + +(defmacro |funcall| (&rest args) + (cons 'funcall args) ) + +(defmacro |Catch| (tag expr) + `(catch ,tag ,expr) ) + +(defmacro |Throw| (tag expr) + `(Throw ,tag ,expr) ) + +(defmacro |UnwindProtect| (a b) + `(unwind-protect ,a ,b) ) + ;; ;; -*- List Comprehension -*- ;; |