/* 1 if the object is readonly from lisp */
unsigned int lisp_readonly:1;
- long unsigned int hash_cache;
unsigned int morphisms:/*number_of_cat_morphism_kinds => */6;
+
+ long unsigned int hash_cache;
};
struct lrecord_implementation;
SLI_header->mark = 0; \
SLI_header->c_readonly = 0; \
SLI_header->lisp_readonly = 0; \
+ SLI_header->morphisms = 0; \
+ SLI_header->hash_cache = 0; \
} while (0)
struct lcrecord_header {
} \
extern Lisp_Object Q##c_name##p
-# define DECLARE_EXTERNAL_LRECORD(c_name, structtype) \
+# define DECLARE_EXTERNAL_LRECORD(c_name, structtype) \
extern unsigned int lrecord_type_##c_name; \
extern struct lrecord_implementation lrecord_##c_name; \
extern_inline structtype * \