From e6190b111d69b998fe7a2d3224616ab6eb7d392b Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 6 Oct 2001 23:25:26 +0000 Subject: [PATCH] (most_positive_fixnum, most_negative_fixnum): New variables. (syms_of_data): DEFVAR_INT most-positive-fixnum and most-negative-fixnum. --- src/data.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/data.c b/src/data.c index 85a5980d1c1..527edc4ec35 100644 --- a/src/data.c +++ b/src/data.c @@ -96,6 +96,8 @@ 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; @@ -3166,6 +3168,14 @@ syms_of_data () 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 -- 2.39.2