53 |
#define CATEGORYP(x) \ |
#define CATEGORYP(x) \ |
54 |
(INTEGERP ((x)) && XFASTINT ((x)) >= 0x20 && XFASTINT ((x)) <= 0x7E) |
(INTEGERP ((x)) && XFASTINT ((x)) >= 0x20 && XFASTINT ((x)) <= 0x7E) |
55 |
|
|
56 |
#define CHECK_CATEGORY(x, i) \ |
#define CHECK_CATEGORY(x) \ |
57 |
do { \ |
do { \ |
58 |
if (!CATEGORYP ((x))) x = wrong_type_argument (Qcategoryp, (x)); \ |
if (!CATEGORYP ((x))) x = wrong_type_argument (Qcategoryp, (x)); \ |
59 |
} while (0) |
} while (0) |
71 |
#define SET_CATEGORY_SET(category_set, category, val) \ |
#define SET_CATEGORY_SET(category_set, category, val) \ |
72 |
(Faset (category_set, category, val)) |
(Faset (category_set, category, val)) |
73 |
|
|
74 |
#define CHECK_CATEGORY_SET(x, i) \ |
#define CHECK_CATEGORY_SET(x) \ |
75 |
do { \ |
do { \ |
76 |
if (!CATEGORY_SET_P ((x))) x = wrong_type_argument (Qcategorysetp, (x)); \ |
if (!CATEGORY_SET_P ((x))) x = wrong_type_argument (Qcategorysetp, (x)); \ |
77 |
} while (0) |
} while (0) |