From 57ddb5d0013b5230b3d7c2c333a2c345652ee967 Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 3 Nov 2001 21:29:35 +0000
Subject: [PATCH] (CHECK_STRING_CAR): New macro.

---
 src/lisp.h | 3 +++
 1 file changed, 3 insertions(+)

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)
 
-- 
2.39.2