diff options
Diffstat (limited to 'macros.lisp')
| -rw-r--r-- | macros.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/macros.lisp b/macros.lisp new file mode 100644 index 000000000000..6ebeb47d081e --- /dev/null +++ b/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) + + |