about summary refs log tree commit diff
path: root/third_party/lisp/quasiquote_2/macros.lisp
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@google.com>2020-01-22T21·38+0000
committerVincent Ambo <tazjin@google.com>2020-01-22T21·38+0000
commitce989529baedb471e17757f2789681580d02f65c (patch)
tree945f5395017b6c099b22833a276769c4d329ff01 /third_party/lisp/quasiquote_2/macros.lisp
parent64b8e9381c2582ad773fb8a88636d61012c8ebd2 (diff)
parent47f60d0996ed57d3a3c00b25ddbd8fea04096f90 (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.lisp15
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 000000000000..6ebeb47d081e
--- /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)
+
+