# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002410726 0
# Node ID 8cd74f2aa6e22ac68f1d31283a0100f096ea6460
# Parent  3d61dd23854a0758c6a38fa730fccdafb25421d3
(most_positive_fixnum, most_negative_fixnum): New
variables.
(syms_of_data): DEFVAR_INT most-positive-fixnum and
most-negative-fixnum.

diff -r 3d61dd23854a -r 8cd74f2aa6e2 src/data.c
--- a/src/data.c	Sat Oct 06 23:25:06 2001 +0000
+++ b/src/data.c	Sat Oct 06 23:25:26 2001 +0000
@@ -96,6 +96,8 @@
 
 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 @@
   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