X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp.h;h=17f1e0f55540dbc5e55db4cfaf35ca0d3d1474b4;hb=b97b9f8199d1f65d2304b035c4f99b5a1c76f61b;hp=0d17994282cafc803743bb0ffda36b45b05def7f;hpb=954bc72d5822e0f5666e80764e798c10b1eb541d;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index 0d179942..17f1e0f5 100644
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -221,6 +221,10 @@ ao_lisp_mem_round(int size)
 
 #define AO_LISP_OTHER_POLY(other) ((ao_poly)(other) + AO_LISP_OTHER)
 
+static inline int ao_lisp_poly_base_type(ao_poly poly) {
+	return poly & AO_LISP_TYPE_MASK;
+}
+
 static inline int ao_lisp_poly_type(ao_poly poly) {
 	int	type = poly & AO_LISP_TYPE_MASK;
 	if (type == AO_LISP_OTHER)
@@ -384,11 +388,11 @@ void
 ao_lisp_poly_patom(ao_poly p);
 
 int
-ao_lisp_poly_mark(ao_poly p);
+ao_lisp_poly_mark(ao_poly p, uint8_t note_cons);
 
 /* returns 1 if the object has already been moved */
 int
-ao_lisp_poly_move(ao_poly *p);
+ao_lisp_poly_move(ao_poly *p, uint8_t note_cons);
 
 /* eval */