arc> (mac test a `(list ,a)) arc> (macex '(test a))
arc> (macex1 '(mac test a `(list ,a)))
Steve
-----
(mac test a `(list ,a))
(mac test (a) `(list ,a))