-#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
-#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->c_readonly = 0; \
- SLI_header->lisp_readonly = 0; \
-} while (0)
-#endif