X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=src%2Flisp%2Fao_lisp_poly.c;fp=src%2Flisp%2Fao_lisp_poly.c;h=800ee06d88df1811cf39b03de5fd01ee52501d8d;hb=e600fc409c577eec02af612a36431c477a9c875e;hp=236176e76baffc91fc0bfeeedc9c78511b6d465d;hpb=2cc8ca2b781be0a6e7ce14405eb4611bc00a3a3e;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c
index 236176e7..800ee06d 100644
--- a/src/lisp/ao_lisp_poly.c
+++ b/src/lisp/ao_lisp_poly.c
@@ -54,6 +54,10 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
 		.print = ao_lisp_lambda_print,
 		.patom = ao_lisp_lambda_print,
 	},
+	[AO_LISP_STACK] = {
+		.print = ao_lisp_stack_print,
+		.patom = ao_lisp_stack_print,
+	},
 };
 
 static const struct ao_lisp_funcs *