From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 3 Nov 2001 21:29:35 +0000 (+0000)
Subject: (CHECK_STRING_CAR): New macro.
X-Git-Tag: ttn-vms-21-2-B4~18852
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57ddb5d0013b5230b3d7c2c333a2c345652ee967;p=emacs.git

(CHECK_STRING_CAR): New macro.
---

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;
 #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)