diff --git a/src/c/serialize.d b/src/c/serialize.d index b80379c7d..c0891465e 100644 --- a/src/c/serialize.d +++ b/src/c/serialize.d @@ -14,7 +14,7 @@ */ #include -#include +#include #define ECL_DEFINE_AET_SIZE #include @@ -229,6 +229,7 @@ serialize_one(pool_t pool, cl_object what) #ifdef ECL_LONG_FLOAT case t_longfloat: #endif + break; #ifndef ECL_SMALL_CONS case t_cons: buffer->cons.car = enqueue(pool, buffer->cons.car); @@ -535,6 +536,7 @@ ecl_deserialize(uint8_t *raw) for (i = 0; i < num_el; i++) { fixup(output[i], output); } + return output[0]; }