X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.c;h=b808cbc51aa992c3c9a4aa9e4419f3d7d5beca85;hb=a7fcf80e22e70516d0b2da314fb17ced20a3f775;hp=30631980500df974f6a6a9cb4a58f469c5f3a072;hpb=7f7e2431f5d1f7c1782ed6e774ccfc70fb4c87cf;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index 30631980..b808cbc5 100644
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -41,9 +41,11 @@ const struct ao_lisp_type ao_lisp_builtin_type = {
 
 #ifdef AO_LISP_MAKE_CONST
 char *ao_lisp_builtin_name(enum ao_lisp_builtin_id b) {
+	(void) b;
 	return "???";
 }
 char *ao_lisp_args_name(uint8_t args) {
+	(void) args;
 	return "???";
 }
 #else
@@ -82,6 +84,9 @@ static const ao_poly builtin_names[] = {
 	[builtin_flush] = _ao_lisp_atom_flush,
 	[builtin_delay] = _ao_lisp_atom_delay,
 	[builtin_led] = _ao_lisp_atom_led,
+	[builtin_save] = _ao_lisp_atom_save,
+	[builtin_restore] = _ao_lisp_atom_restore,
+
 };
 
 static char *
@@ -101,6 +106,7 @@ static const ao_poly ao_lisp_args_atoms[] = {
 char *
 ao_lisp_args_name(uint8_t args)
 {
+	args &= AO_LISP_FUNC_MASK;
 	if (args < sizeof ao_lisp_args_atoms / sizeof ao_lisp_args_atoms[0])
 		return ao_lisp_poly_atom(ao_lisp_args_atoms[args])->name;
 	return "(unknown)";
@@ -591,5 +597,7 @@ const ao_lisp_func_t ao_lisp_builtins[] = {
 	[builtin_flush] = ao_lisp_flush,
 	[builtin_led] = ao_lisp_led,
 	[builtin_delay] = ao_lisp_delay,
+	[builtin_save] = ao_lisp_save,
+	[builtin_restore] = ao_lisp_restore,
 };