+ if (ao_lisp_poly_type(poly) == AO_LISP_CONS) {
+ struct ao_lisp_cons *cons = ao_lisp_poly_cons(poly);
+
+ if (cons) {
+ while (cons) {
+ if (!first)
+ printf("\t\t ");
+ else
+ first = 0;
+ ao_lisp_poly_print(cons->car);
+ printf("\n");
+ cons = ao_lisp_poly_cons(cons->cdr);
+ }
+ printf("\t\t )\n");
+ } else
+ printf(")\n");
+ } else {
+ ao_lisp_poly_print(poly);
+ printf("\n");
+ }