ao_lisp_cons_stash(0, cons);
ao_lisp_cons_stash(1, tail);
ao_lisp_string_stash(0, a);
- struct ao_lisp_cons *n = ao_lisp_cons_cons(ao_lisp_int_poly(c), NULL);
+ struct ao_lisp_cons *n = ao_lisp_cons_cons(ao_lisp_int_poly(c), AO_LISP_NIL);
a = ao_lisp_string_fetch(0);
cons = ao_lisp_cons_fetch(0);
tail = ao_lisp_cons_fetch(1);
}
void
-ao_lisp_string_print(ao_poly p)
+ao_lisp_string_write(ao_poly p)
{
char *s = ao_lisp_poly_string(p);
char c;
}
void
-ao_lisp_string_patom(ao_poly p)
+ao_lisp_string_display(ao_poly p)
{
char *s = ao_lisp_poly_string(p);
char c;