about summary refs log blame commit diff
path: root/third_party/lisp/quasiquote_2/macros.lisp
blob: 6ebeb47d081eae76f0b0494a12791ddf2a263d27 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)