Mercurial > emacs
changeset 40689:1e79b0de40a1
(CHECK_STRING_CAR): New macro.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Sat, 03 Nov 2001 21:29:35 +0000 |
| parents | c4f332c5cd1a |
| children | ba7239b8872e |
| files | src/lisp.h |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Sat Nov 03 19:40:55 2001 +0000 +++ b/src/lisp.h Sat Nov 03 21:29:35 2001 +0000 @@ -1422,6 +1422,9 @@ #define CHECK_STRING(x) \ do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0) +#define CHECK_STRING_CAR(x) \ + do { if (!STRINGP (XCAR (x))) XSETCAR (x, wrong_type_argument (Qstringp, XCAR (x))); } while (0) + #define CHECK_CONS(x) \ do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0)