X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_make_const.c;h=f2e3cea162f23baa84c5c10c9502d442b641d97a;hb=d8cf97fe22acefab40d7bb321138e46d4483fef7;hp=9768dc220c7710df07aa233feefa4290dd24348c;hpb=3366efb139653939f053c1fe4aba352ba3b66c94;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index 9768dc22..f2e3cea1 100644
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -41,6 +41,7 @@ struct builtin_func funcs[] = {
 	"setq",		AO_LISP_MACRO,	builtin_setq,
 	"cond",		AO_LISP_NLAMBDA,builtin_cond,
 	"print",	AO_LISP_LEXPR,	builtin_print,
+	"patom",	AO_LISP_LEXPR,	builtin_patom,
 	"+",		AO_LISP_LEXPR,	builtin_plus,
 	"-",		AO_LISP_LEXPR,	builtin_minus,
 	"*",		AO_LISP_LEXPR,	builtin_times,