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

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

diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c
index 8eafb18794baf48cbf5e2f20a3cf7f9f981d9ac0..c53a38fd687f99533d4e7075082967ce99e87bde 100644 (file)
--- a/src/lisp/ao_lisp_lambda.c
+++ b/src/lisp/ao_lisp_lambda.c
@@ -49,17 +49,6 @@ const struct ao_lisp_type ao_lisp_lambda_type = {
        .move = lambda_move,
 };
 
-static int
-ao_lisp_cons_length(struct ao_lisp_cons *cons)
-{
-       int     len = 0;
-       while (cons) {
-               len++;
-               cons = ao_lisp_poly_cons(cons->cdr);
-       }
-       return len;
-}
-
 void
 ao_lisp_lambda_print(ao_poly poly)
 {