- /* allocator test */
- for (j = 0; j < 10; j++) {
- list = 0;
- string = ao_lisp_string_new(0);
- for (i = 0; i < 2; i++) {
- string = ao_lisp_string_cat(string, "a");
- list = ao_lisp_cons_cons(ao_lisp_string_poly(string), list);
- list = ao_lisp_cons_cons(ao_lisp_int_poly(i), list);
- atom = ao_lisp_atom_intern("ant");
- list = ao_lisp_cons_cons(ao_lisp_atom_poly(atom), list);
- }
- ao_lisp_poly_print(ao_lisp_cons_poly(list));
- printf("\n");