+#ifdef UTF2000
+#define set_lheader_implementation(header,imp) do { \
+ struct lrecord_header* SLI_header = (header); \
+ SLI_header->type = (imp)->lrecord_type_index; \
+ SLI_header->mark = 0; \
+ SLI_header->older = 0; \
+ SLI_header->c_readonly = 0; \
+ SLI_header->lisp_readonly = 0; \
+} while (0)
+#define set_lheader_older_implementation(header,imp) do { \
+ struct lrecord_header* SLI_header = (header); \
+ SLI_header->type = (imp)->lrecord_type_index; \
+ SLI_header->mark = 0; \
+ SLI_header->older = 1; \
+ SLI_header->c_readonly = 0; \
+ SLI_header->lisp_readonly = 0; \
+} while (0)
+#else