printf("\t\tstate: %s\n", ao_lisp_state_names[s->state]);
ao_lisp_error_poly ("values: ", s->values, s->values_tail);
ao_lisp_error_poly ("sexprs: ", s->sexprs, AO_LISP_NIL);
printf("\t\tstate: %s\n", ao_lisp_state_names[s->state]);
ao_lisp_error_poly ("values: ", s->values, s->values_tail);
ao_lisp_error_poly ("sexprs: ", s->sexprs, AO_LISP_NIL);