comparison src/casetab.h @ 5118:e0db3c197671 ben-lisp-object

merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents 1e7cc382eb16
children d1247f3cc363
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
32 Lisp_Object case_eqv_table; 32 Lisp_Object case_eqv_table;
33 int dirty; 33 int dirty;
34 }; 34 };
35 typedef struct Lisp_Case_Table Lisp_Case_Table; 35 typedef struct Lisp_Case_Table Lisp_Case_Table;
36 36
37 DECLARE_LRECORD (case_table, Lisp_Case_Table); 37 DECLARE_LISP_OBJECT (case_table, Lisp_Case_Table);
38 #define XCASE_TABLE(x) XRECORD (x, case_table, Lisp_Case_Table) 38 #define XCASE_TABLE(x) XRECORD (x, case_table, Lisp_Case_Table)
39 #define wrap_case_table(p) wrap_record (p, case_table) 39 #define wrap_case_table(p) wrap_record (p, case_table)
40 #define CASE_TABLEP(x) RECORDP (x, case_table) 40 #define CASE_TABLEP(x) RECORDP (x, case_table)
41 #define CHECK_CASE_TABLE(x) CHECK_RECORD (x, case_table) 41 #define CHECK_CASE_TABLE(x) CHECK_RECORD (x, case_table)
42 #define CONCHECK_CASE_TABLE(x) CONCHECK_RECORD (x, case_table) 42 #define CONCHECK_CASE_TABLE(x) CONCHECK_RECORD (x, case_table)