| I tried the following but the output is horrifying.  arc> (macex '(mac test a `(list ,a)))
  ((fn () (sref sig (quote a) (quote test)) (safeset test (annotate (quote mac) (fn a (quasiquote (list (unquote a))))))))
 
How can I get back something as simple as:  (list a)
  |