# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1206555242 0
# Node ID 88978186070027bc4bed0a5051320c800ddbd8a6
# Parent  16142d1d9f3335fc0294a43b0e02d0c2914e99a7
(syms_of_data): Mark most-positive-fixnum and
most-negative-fixnum as constants.

diff -r 16142d1d9f33 -r 889781860700 src/ChangeLog
--- a/src/ChangeLog	Wed Mar 26 18:11:47 2008 +0000
+++ b/src/ChangeLog	Wed Mar 26 18:14:02 2008 +0000
@@ -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 -r 16142d1d9f33 -r 889781860700 src/data.c
--- a/src/data.c	Wed Mar 26 18:11:47 2008 +0000
+++ b/src/data.c	Wed Mar 26 18:14:02 2008 +0000
@@ -3231,10 +3231,12 @@
   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