Commit 1d80f4da authored by Karl Heuer's avatar Karl Heuer
Browse files

(STRING256_P): Use type test macros.

parent ed76f667
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment