X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_save.c;h=d5f28e7daf45c283d6ec6c776c887b402bd479f2;hb=ac0f7768659e288338bf452b4248ae3572ea2f7d;hp=030846b7234b22197d0340512690cbede9282996;hpb=33aeffc123af1f9063969acf585f1caac885ced4;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_save.c b/src/lisp/ao_lisp_save.c
index 030846b7..d5f28e7d 100644
--- a/src/lisp/ao_lisp_save.c
+++ b/src/lisp/ao_lisp_save.c
@@ -27,7 +27,7 @@ ao_lisp_save(struct ao_lisp_cons *cons)
 	os->atoms = ao_lisp_atom_poly(ao_lisp_atoms);
 	os->globals = ao_lisp_frame_poly(ao_lisp_frame_global);
 	os->const_checksum = ao_lisp_const_checksum;
-	os->const_checksum_inv = ~ao_lisp_const_checksum;
+	os->const_checksum_inv = (uint16_t) ~ao_lisp_const_checksum;
 
 	if (ao_lisp_os_save())
 		return _ao_lisp_atom_t;