X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_cons.c;fp=src%2Flisp%2Fao_lisp_cons.c;h=d3b97383fe655ad9dd28e8ed198445d84fb8307d;hb=32ab76c3049b913283caafbaef873754d76dc9d4;hp=06e9d361e65630bf7b35d66ca2fef0eb4416db4e;hpb=ed6967cef5d82baacafe1c23229f44d58c838326;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_cons.c b/src/lisp/ao_lisp_cons.c
index 06e9d361..d3b97383 100644
--- a/src/lisp/ao_lisp_cons.c
+++ b/src/lisp/ao_lisp_cons.c
@@ -58,8 +58,8 @@ static void cons_move(void *addr)
 		cdr = cons->cdr;
 		if (!cdr)
 			break;
-		if (ao_lisp_poly_type(cdr) != AO_LISP_CONS) {
-			(void) ao_lisp_poly_move(&cons->cdr, 1);
+		if (ao_lisp_poly_base_type(cdr) != AO_LISP_CONS) {
+			(void) ao_lisp_poly_move(&cons->cdr, 0);
 			break;
 		}
 		c = ao_lisp_poly_cons(cdr);
@@ -95,8 +95,8 @@ ao_lisp_cons_cons(ao_poly car, ao_poly cdr)
 		ao_lisp_poly_stash(0, car);
 		ao_lisp_poly_stash(1, cdr);
 		cons = ao_lisp_alloc(sizeof (struct ao_lisp_cons));
-		car = ao_lisp_poly_fetch(0);
 		cdr = ao_lisp_poly_fetch(1);
+		car = ao_lisp_poly_fetch(0);
 		if (!cons)
 			return NULL;
 	}