[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
defmacro within defmacro
I want to define a macro that defines another macro with some complex template that is best
explained by example. Here goes...
The macro I am actually writing (let's call it MACRO-MAKER) should have the following syntax:
(macro-maker name arglist)
An example of its use looks like:
(macro-maker foo (bar baz ad infinitum))
The contract of macro-maker is to define a macro with the given name and arglist. The example above
defines a macro named FOO that takes 4 required arguments.
(foo 1 2 3 4)
=> ...some result...
If I say:
1(defmacro macro-maker (name arglist) ;name and will become part of the inner macro's template
`(defmacro ,name ,arglist
0 ;;the function some-function takes multiple literal patterns (ie. lists) as its arguments
;;assume the lists are self-quoting
1 `(some-function ,,@(loop for arg in arglist
collect `(0literal1 ,arg)))))
(macroexpand-1 '(macro-maker foo (bar baz ad infinitum)))
=> (DEFMACRO FOO (BAR BAZ AD INFINITUM)
`(SOME-FUNCTION ,(LITERAL BAR)
What I want is to define MACRO-MAKER so that its expansion looks EXACTLY like:
(DEFMACRO FOO (BAR BAZ AD INFINITUM)
`(SOME-FUNCTION (LITERAL ,BAR)
Note the sly placement of commas within the pattern denoted by LITERAL. I have tried dozens of
backquote-comma combinations but can't find the right one.
Any responses will be greatly appreciated.
Len Charest, email@example.com