(syms_of_data): Mark most-positive-fixnum and

most-negative-fixnum as constants.

diff --git a/src/ChangeLog b/src/ChangeLog
index a246449bfb72c4e1f8a64790c12043be9e745612..52aeaf130a16c3ba96534a7a86c5d5fdf379601b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * data.c (syms_of_data): Mark most-positive-fixnum and
+       most-negative-fixnum as constants.
+
        * xdisp.c (redisplay_internal): Reset selected_frame earlier.
 
        * indent.c (scan_for_column): Extract from current_column_1.

diff --git a/src/data.c b/src/data.c
index 6f1256786eca1347db38a526a0a6da758046b588..6b1a9fc886029673ce91ca8fe39081b0903eb395 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -3231,10 +3231,12 @@ syms_of_data ()
   DEFVAR_LISP ("most-positive-fixnum", &Vmost_positive_fixnum,
               doc: /* The largest value that is representable in a Lisp integer.  */);
   Vmost_positive_fixnum = make_number (MOST_POSITIVE_FIXNUM);
+  XSYMBOL (intern ("most-positive-fixnum"))->constant = 1;
 
   DEFVAR_LISP ("most-negative-fixnum", &Vmost_negative_fixnum,
               doc: /* The smallest value that is representable in a Lisp integer.  */);
   Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM);
+  XSYMBOL (intern ("most-negative-fixnum"))->constant = 1;
 }
 
 SIGTYPE