X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.c;h=b808cbc51aa992c3c9a4aa9e4419f3d7d5beca85;hp=e4b7ef5219ab897aa73d3330cbd278769bb0334d;hb=41175ff82bc0e35c99c60b49aa62944a12917157;hpb=974717eb9dad105c9897ee24f953d98d57eaec77

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index e4b7ef52..b808cbc5 100644
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -106,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)";