Code: Select all
(defun macroexpand-n (n body)
"Return body macroexpanded n times"
(if (= 0 n)
body
(macroexpand-n (1- n) (macroexpand-1 body))))
Code: Select all
(defun macroexpand-n (n body)
"Return body macroexpanded n times"
(if (= 0 n)
body
(macroexpand-n (1- n) (macroexpand-1 body))))