1422 |
#define CHECK_STRING(x) \ |
#define CHECK_STRING(x) \ |
1423 |
do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0) |
do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0) |
1424 |
|
|
1425 |
|
#define CHECK_STRING_CAR(x) \ |
1426 |
|
do { if (!STRINGP (XCAR (x))) XSETCAR (x, wrong_type_argument (Qstringp, XCAR (x))); } while (0) |
1427 |
|
|
1428 |
#define CHECK_CONS(x) \ |
#define CHECK_CONS(x) \ |
1429 |
do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0) |
do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0) |
1430 |
|
|