# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780635342 0
# Node ID 083a2f0f63f66e3e3413d3a0ac590eeb1da6ce81
# Parent  551c9e4fa12a098d9e425808fbfc08c61c96b803
(STRING256_P): Use type test macros.

diff -r 551c9e4fa12a -r 083a2f0f63f6 src/casetab.c
--- a/src/casetab.c	Tue Sep 27 03:08:20 1994 +0000
+++ b/src/casetab.c	Tue Sep 27 03:09:02 1994 +0000
@@ -41,8 +41,7 @@
   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))