+void
+dump_atoms(builtin_t[*] builtins) {
+ printf("#ifdef AO_LISP_BUILTIN_ATOMS\n");
+ printf("#undef AO_LISP_BUILTIN_ATOMS\n");
+ for (int i = 0; i < dim(builtins); i++) {
+ for (int j = 0; j < dim(builtins[i].lisp_names); j++) {
+ printf("#define _ao_lisp_atom_");
+ cify_lisp(builtins[i].lisp_names[j]);
+ printf(" _atom(\"%s\")\n", builtins[i].lisp_names[j]);
+ }
+ }
+ printf("#endif /* AO_LISP_BUILTIN_ATOMS */\n");
+}
+