X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_lambda.c;h=c53a38fd687f99533d4e7075082967ce99e87bde;hp=8eafb18794baf48cbf5e2f20a3cf7f9f981d9ac0;hb=7f7e2431f5d1f7c1782ed6e774ccfc70fb4c87cf;hpb=f5a36c15f894803f8804bbc3daf105eed53d5ff6

diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c
index 8eafb187..c53a38fd 100644
--- 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)
 {