(
defmacro
test
(
&
aux
(
frob
(
gensym
(
string '#
:
frob
)
)
)
)
`
(
progn
(
defun
,
frob
(
)
42
)
(
defun
call-frob
(
)
(
,
frob
)
)
)
)
(
test
)