X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_prim.c;h=bfd75ae3b629a1ad9e235277418f3d528e73d6a1;hb=0ee44c8e4bf5dabe6a97bf76b366c8b767c387f8;hp=3c081ee89fbeab3be336fe4f298dc824fb926b9e;hpb=6e5c1308ce33a864095eae02e7db18b0e043ab6e;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_prim.c b/src/lisp/ao_lisp_prim.c
index 3c081ee8..bfd75ae3 100644
--- a/src/lisp/ao_lisp_prim.c
+++ b/src/lisp/ao_lisp_prim.c
@@ -45,7 +45,15 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
 	[AO_LISP_BUILTIN] = {
 		.print = ao_lisp_builtin_print,
 		.patom = ao_lisp_builtin_print,
-	}
+	},
+	[AO_LISP_FRAME] = {
+		.print = ao_lisp_frame_print,
+		.patom = ao_lisp_frame_print,
+	},
+	[AO_LISP_LAMBDA] = {
+		.print = ao_lisp_lambda_print,
+		.patom = ao_lisp_lambda_print,
+	},
 };
 
 static const struct ao_lisp_funcs *