(STRING256_P): Use type test macros.

diff --git a/src/casetab.c b/src/casetab.c
index 34a81dc9b06cf5a3451eb7a2a1fb8d9794f165d7..25aac5eca09a2a9a8afcc3cc5c607d9c77dfd484 100644 (file)
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -41,8 +41,7 @@ See `set-case-table' for more information on these data structures.")
   canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table)));
   eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table))));
 
-#define STRING256_P(obj) \
-  (XTYPE (obj) == Lisp_String && XSTRING (obj)->size == 256)
+#define STRING256_P(obj) (STRINGP (obj) && XSTRING (obj)->size == 256)
 
   return (STRING256_P (down)
          && (NILP (up) || STRING256_P (up))