altos/lisp: add length, pack, unpack and flush

[fw/altos] / src / lisp / ao_lisp_make_const.c

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index 4fc43e583b6ca50f16d3f48cf264d2a23af9d650..0b3e25a6df079787182787abecf0dc120d1b07ae 100644 (file)
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -43,6 +43,7 @@ struct builtin_func funcs[] = {
        "cdr",          AO_LISP_FUNC_LAMBDA,    builtin_cdr,
        "cons",         AO_LISP_FUNC_LAMBDA,    builtin_cons,
        "last",         AO_LISP_FUNC_LAMBDA,    builtin_last,
+       "length",       AO_LISP_FUNC_LAMBDA,    builtin_length,
        "quote",        AO_LISP_FUNC_NLAMBDA,   builtin_quote,
        "set",          AO_LISP_FUNC_LAMBDA,    builtin_set,
        "setq",         AO_LISP_FUNC_MACRO,     builtin_setq,
@@ -61,6 +62,9 @@ struct builtin_func funcs[] = {
        ">",            AO_LISP_FUNC_LEXPR,     builtin_greater,
        "<=",           AO_LISP_FUNC_LEXPR,     builtin_less_equal,
        ">=",           AO_LISP_FUNC_LEXPR,     builtin_greater_equal,
+       "pack",         AO_LISP_FUNC_LAMBDA,    builtin_pack,
+       "unpack",       AO_LISP_FUNC_LAMBDA,    builtin_unpack,
+       "flush",        AO_LISP_FUNC_LAMBDA,    builtin_flush,
        "delay",        AO_LISP_FUNC_LAMBDA,    builtin_delay,
        "led",          AO_LISP_FUNC_LEXPR,     builtin_led,
 };