diff options
| author | Vincent Ambo <tazjin@google.com> | 2020-01-22T21·38+0000 |
|---|---|---|
| committer | Vincent Ambo <tazjin@google.com> | 2020-01-22T21·38+0000 |
| commit | ce989529baedb471e17757f2789681580d02f65c (patch) | |
| tree | 945f5395017b6c099b22833a276769c4d329ff01 /third_party/lisp/quasiquote_2/macros.lisp | |
| parent | 64b8e9381c2582ad773fb8a88636d61012c8ebd2 (diff) | |
| parent | 47f60d0996ed57d3a3c00b25ddbd8fea04096f90 (diff) | |
Merge commit '47f60d0996ed57d3a3c00b25ddbd8fea04096f90' as 'third_party/lisp/quasiquote_2' r/450
Diffstat (limited to 'third_party/lisp/quasiquote_2/macros.lisp')
| -rw-r--r-- | third_party/lisp/quasiquote_2/macros.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/third_party/lisp/quasiquote_2/macros.lisp b/third_party/lisp/quasiquote_2/macros.lisp new file mode 100644 index 0000000000..6ebeb47d08 --- /dev/null +++ b/third_party/lisp/quasiquote_2/macros.lisp @@ -0,0 +1,15 @@ + +(in-package #:quasiquote-2.0) + +(defmacro define-dig-like-macro (name) + `(defmacro ,name (n-or-form &optional (form nil form-p) &environment env) + (if (not form-p) + `(,',name 1 ,n-or-form) + (let ((*env* env)) + (transform-dig-form `(,',name ,n-or-form ,form)))))) + + +(define-dig-like-macro dig) +(define-dig-like-macro odig) + + |