comparison src/data.c @ 9954:18b408b05189

(syms_of_data): Set Qwholenump as function, not variable. (Fnatnump): Use NATNUMP macro.

9953:e0672d4cf470

DEFUN ("natnump", Fnatnump, Snatnump, 1, 1, 0,
  "T if OBJECT is a nonnegative integer.")
  (obj)
     Lisp_Object obj;
{
  if (INTEGERP (obj) && XINT (obj) >= 0)
    return Qt;
  return Qnil;
}

DEFUN ("numberp", Fnumberp, Snumberp, 1, 1, 0,

  defsubr (&Sash);
  defsubr (&Sadd1);
  defsubr (&Ssub1);
  defsubr (&Slognot);

  Fset (Qwholenump, Qnatnump);
}

SIGTYPE
arith_error (signo)
     int signo;

9954:18b408b05189

DEFUN ("natnump", Fnatnump, Snatnump, 1, 1, 0,
  "T if OBJECT is a nonnegative integer.")
  (obj)
     Lisp_Object obj;
{
  if (NATNUMP (obj))
    return Qt;
  return Qnil;
}

DEFUN ("numberp", Fnumberp, Snumberp, 1, 1, 0,

  defsubr (&Sash);
  defsubr (&Sadd1);
  defsubr (&Ssub1);
  defsubr (&Slognot);

  XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
}

SIGTYPE
arith_error (signo)
     int signo;