diff options
| author | Ken Raeburn | 2001-11-03 21:29:35 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2001-11-03 21:29:35 +0000 |
| commit | 57ddb5d0013b5230b3d7c2c333a2c345652ee967 (patch) | |
| tree | 7602424f24f3f7ee0129ebd851c530704cc0828c /src | |
| parent | 13ccc79af740b42f2dbfb0e208e84adbd7c71a25 (diff) | |
| download | emacs-57ddb5d0013b5230b3d7c2c333a2c345652ee967.tar.gz emacs-57ddb5d0013b5230b3d7c2c333a2c345652ee967.zip | |
(CHECK_STRING_CAR): New macro.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h index 2ed70c9c228..2b6c2a2e00e 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -1422,6 +1422,9 @@ typedef unsigned char UCHAR; | |||
| 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 | 1424 | ||
| 1425 | #define CHECK_STRING_CAR(x) \ | ||
| 1426 | do { if (!STRINGP (XCAR (x))) XSETCAR (x, wrong_type_argument (Qstringp, XCAR (x))); } while (0) | ||
| 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 | ||