X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_eval.c;fp=src%2Flisp%2Fao_lisp_eval.c;h=3e68d14af3c73734738d724538fe614e9b5ee673;hb=bd881a5b85d7cd4fb82127f92f32e089499b50cb;hp=3be7c9c4fa68c2fb29b60ec6f8b10ec6216ae705;hpb=50a095fbe828b6ec3159d27930712df6b1b519b4;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_eval.c b/src/lisp/ao_lisp_eval.c
index 3be7c9c4..3e68d14a 100644
--- a/src/lisp/ao_lisp_eval.c
+++ b/src/lisp/ao_lisp_eval.c
@@ -210,7 +210,7 @@ ao_lisp_eval_formal(void)
 	}
 
 	/* Append formal to list of values */
-	formal = ao_lisp_cons_poly(ao_lisp_cons_cons(ao_lisp_v, NULL));
+	formal = ao_lisp__cons(ao_lisp_v, AO_LISP_NIL);
 	if (!formal)
 		return 0;