comparison src/data.c @ 39632:8cd74f2aa6e2

(most_positive_fixnum, most_negative_fixnum): New variables. (syms_of_data): DEFVAR_INT most-positive-fixnum and most-negative-fixnum.

39631:3d61dd23854a

static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
static Lisp_Object Qsubrp, Qmany, Qunevalled;

static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));

Lisp_Object
wrong_type_argument (predicate, value)
     register Lisp_Object predicate, value;
{

  defsubr (&Ssub1);
  defsubr (&Slognot);
  defsubr (&Ssubr_arity);

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

SIGTYPE
arith_error (signo)
     int signo;

39632:8cd74f2aa6e2

static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
static Lisp_Object Qsubrp, Qmany, Qunevalled;

static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));

int most_positive_fixnum, most_negative_fixnum;

Lisp_Object
wrong_type_argument (predicate, value)
     register Lisp_Object predicate, value;
{

  defsubr (&Ssub1);
  defsubr (&Slognot);
  defsubr (&Ssubr_arity);

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

  DEFVAR_INT ("most-positive-fixnum", &most_positive_fixnum,
    "The largest value that is representable in a Lisp integer.");
  most_positive_fixnum = MOST_POSITIVE_FIXNUM;
  
  DEFVAR_INT ("most-negative-fixnum", &most_negative_fixnum,
    "The smallest value that is representable in a Lisp integer.");
  most_negative_fixnum = MOST_NEGATIVE_FIXNUM;
}

SIGTYPE
arith_error (signo)
     int signo;