# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784945825 0
# Node ID e0672d4cf470cff985ddbc7f37c994b17b87b48c
# Parent  9daedd94a204b20c00ce290ab02a2e85b4a83440
(Fmake_list, Fmake_vector, Fmake_string): Use CHECK_NATNUM instead of its
expansion.

diff -r 9daedd94a204 -r e0672d4cf470 src/alloc.c
--- a/src/alloc.c	Tue Nov 15 23:55:26 1994 +0000
+++ b/src/alloc.c	Wed Nov 16 00:30:25 1994 +0000
@@ -570,9 +570,8 @@
   register Lisp_Object val;
   register int size;
 
-  if (!INTEGERP (length) || XINT (length) < 0)
-    length = wrong_type_argument (Qnatnump, length);
-  size = XINT (length);
+  CHECK_NATNUM (length, 0);
+  size = XFASTINT (length);
 
   val = Qnil;
   while (size-- > 0)
@@ -594,9 +593,8 @@
   register Lisp_Object vector;
   register struct Lisp_Vector *p;
 
-  if (!INTEGERP (length) || XINT (length) < 0)
-    length = wrong_type_argument (Qnatnump, length);
-  sizei = XINT (length);
+  CHECK_NATNUM (length, 0);
+  sizei = XFASTINT (length);
 
   p = (struct Lisp_Vector *) xmalloc (sizeof (struct Lisp_Vector) + (sizei - 1) * sizeof (Lisp_Object));
   VALIDATE_LISP_STORAGE (p, 0);
@@ -885,10 +883,9 @@
   register Lisp_Object val;
   register unsigned char *p, *end, c;
 
-  if (!INTEGERP (length) || XINT (length) < 0)
-    length = wrong_type_argument (Qnatnump, length);
+  CHECK_NATNUM (length, 0);
   CHECK_NUMBER (init, 1);
-  val = make_uninit_string (XINT (length));
+  val = make_uninit_string (XFASTINT (length));
   c = XINT (init);
   p = XSTRING (val)->data;
   end = p + XSTRING (val)->size;