# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780635762 0
# Node ID 0e29f6a4fe7c737135c57c6172108b533466540a
# Parent  069f8b6cdfe6af102d098b6504bb73b38930e00d
(Fmake_list, Fmake_vector, Fmake_string, make_event_array): Use type test
macros.

diff -r 069f8b6cdfe6 -r 0e29f6a4fe7c src/alloc.c
--- a/src/alloc.c	Tue Sep 27 03:15:02 1994 +0000
+++ b/src/alloc.c	Tue Sep 27 03:16:02 1994 +0000
@@ -570,7 +570,7 @@
   register Lisp_Object val;
   register int size;
 
-  if (XTYPE (length) != Lisp_Int || XINT (length) < 0)
+  if (!INTEGERP (length) || XINT (length) < 0)
     length = wrong_type_argument (Qnatnump, length);
   size = XINT (length);
 
@@ -594,7 +594,7 @@
   register Lisp_Object vector;
   register struct Lisp_Vector *p;
 
-  if (XTYPE (length) != Lisp_Int || XINT (length) < 0)
+  if (!INTEGERP (length) || XINT (length) < 0)
     length = wrong_type_argument (Qnatnump, length);
   sizei = XINT (length);
 
@@ -875,7 +875,7 @@
   register Lisp_Object val;
   register unsigned char *p, *end, c;
 
-  if (XTYPE (length) != Lisp_Int || XINT (length) < 0)
+  if (!INTEGERP (length) || XINT (length) < 0)
     length = wrong_type_argument (Qnatnump, length);
   CHECK_NUMBER (init, 1);
   val = make_uninit_string (XINT (length));
@@ -975,7 +975,7 @@
     /* The things that fit in a string
        are characters that are in 0...127,
        after discarding the meta bit and all the bits above it.  */
-    if (XTYPE (args[i]) != Lisp_Int
+    if (!INTEGERP (args[i])
 	|| (XUINT (args[i]) & ~(-CHAR_META)) >= 0200)
       return Fvector (nargs, args);