(mac test-mac (x) (prn x) nil) arc> (test-mac:foo:bar) (foo (bar)) nil arc> (test-mac (foo:bar)) (foo (bar)) ;doesn't happen; you get (foo:bar) nil