diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-06 23:25:26 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-06 23:25:26 +0000 |
| commit | e6190b111d69b998fe7a2d3224616ab6eb7d392b (patch) | |
| tree | e02bd71273bf6294df9b3263f8689c60a7daed45 /src/data.c | |
| parent | dc8e8b07bdf1baa52dc5c1bd1ea4dd839aa6cb55 (diff) | |
| download | emacs-e6190b111d69b998fe7a2d3224616ab6eb7d392b.tar.gz | |
(most_positive_fixnum, most_negative_fixnum): New
variables.
(syms_of_data): DEFVAR_INT most-positive-fixnum and
most-negative-fixnum.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 10 |
1 files changed, 10 insertions, 0 deletions
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 |