Mercurial > emacs
comparison src/lisp.h @ 40689:1e79b0de40a1
(CHECK_STRING_CAR): New macro.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Sat, 03 Nov 2001 21:29:35 +0000 |
| parents | 6c48a4da1da5 |
| children | 3edec01a7255 |
comparison
equal
deleted
inserted
replaced
| 40688:c4f332c5cd1a | 40689:1e79b0de40a1 |
|---|---|
| 1419 #define CHECK_LIST(x) \ | 1419 #define CHECK_LIST(x) \ |
| 1420 do { if (!CONSP ((x)) && !NILP (x)) x = wrong_type_argument (Qlistp, (x)); } while (0) | 1420 do { if (!CONSP ((x)) && !NILP (x)) x = wrong_type_argument (Qlistp, (x)); } while (0) |
| 1421 | 1421 |
| 1422 #define CHECK_STRING(x) \ | 1422 #define CHECK_STRING(x) \ |
| 1423 do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0) | 1423 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) | |
| 1424 | 1427 |
| 1425 #define CHECK_CONS(x) \ | 1428 #define CHECK_CONS(x) \ |
| 1426 do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0) | 1429 do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0) |
| 1427 | 1430 |
| 1428 #define CHECK_SYMBOL(x) \ | 1431 #define CHECK_SYMBOL(x) \ |