X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_cons.c;h=cd8a8d1d03b9920716fece9c834e101f3d70b55f;hb=654a34e72e28bfa52f26ed0be3bef63dfb50bba6;hp=855079b8b483022040a5124bef3b4ea0c77cf09e;hpb=cc50f9628431c13c556de8e54788264a5f653f54;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_cons.c b/src/lisp/ao_lisp_cons.c
index 855079b8..cd8a8d1d 100644
--- a/src/lisp/ao_lisp_cons.c
+++ b/src/lisp/ao_lisp_cons.c
@@ -67,7 +67,13 @@ const struct ao_lisp_type ao_lisp_cons_type = {
 struct ao_lisp_cons *
 ao_lisp_cons_cons(ao_poly car, struct ao_lisp_cons *cdr)
 {
-	struct ao_lisp_cons	*cons = ao_lisp_alloc(sizeof (struct ao_lisp_cons));
+	struct ao_lisp_cons	*cons;
+
+	ao_lisp_root_add(&ao_lisp_cons_type, &cdr);
+	ao_lisp_root_poly_add(&car);
+	cons = ao_lisp_alloc(sizeof (struct ao_lisp_cons));
+	ao_lisp_root_clear(&car);
+	ao_lisp_root_clear(&cdr);
 	if (!cons)
 		return NULL;
 	cons->car = car;