(most_positive_fixnum, most_negative_fixnum): New

variables.
(syms_of_data): DEFVAR_INT most-positive-fixnum and
most-negative-fixnum.

diff --git a/src/data.c b/src/data.c
index 85a5980d1c1ba877cd0f1f454b91257350c42322..527edc4ec3516810fd207f1f1c7db455a2bbe5a0 100644 (file)
--- 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