comparison src/alloc.c @ 9953:e0672d4cf470

(Fmake_list, Fmake_vector, Fmake_string): Use CHECK_NATNUM instead of its expansion.

9952:9daedd94a204

     register Lisp_Object length, init;
{
  register Lisp_Object val;
  register int size;

  if (!INTEGERP (length) || XINT (length) < 0)
    length = wrong_type_argument (Qnatnump, length);
  size = XINT (length);

  val = Qnil;
  while (size-- > 0)
    val = Fcons (init, val);
  return val;

{
  register int sizei, index;
  register Lisp_Object vector;
  register struct Lisp_Vector *p;

  if (!INTEGERP (length) || XINT (length) < 0)
    length = wrong_type_argument (Qnatnump, length);
  sizei = XINT (length);

  p = (struct Lisp_Vector *) xmalloc (sizeof (struct Lisp_Vector) + (sizei - 1) * sizeof (Lisp_Object));
  VALIDATE_LISP_STORAGE (p, 0);

  XSETVECTOR (vector, p);

     Lisp_Object length, init;
{
  register Lisp_Object val;
  register unsigned char *p, *end, c;

  if (!INTEGERP (length) || XINT (length) < 0)
    length = wrong_type_argument (Qnatnump, length);
  CHECK_NUMBER (init, 1);
  val = make_uninit_string (XINT (length));
  c = XINT (init);
  p = XSTRING (val)->data;
  end = p + XSTRING (val)->size;
  while (p != end)
    *p++ = c;

9953:e0672d4cf470

     register Lisp_Object length, init;
{
  register Lisp_Object val;
  register int size;

  CHECK_NATNUM (length, 0);
  size = XFASTINT (length);

  val = Qnil;
  while (size-- > 0)
    val = Fcons (init, val);
  return val;

{
  register int sizei, index;
  register Lisp_Object vector;
  register struct Lisp_Vector *p;

  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);

  XSETVECTOR (vector, p);

     Lisp_Object length, init;
{
  register Lisp_Object val;
  register unsigned char *p, *end, c;

  CHECK_NATNUM (length, 0);
  CHECK_NUMBER (init, 1);
  val = make_uninit_string (XFASTINT (length));
  c = XINT (init);
  p = XSTRING (val)->data;
  end = p + XSTRING (val)->size;
  while (p != end)
    *p++ = c;