summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2008-03-26 18:14:02 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2008-03-26 18:14:02 +0000
commitde5d41c2f8bc27ae96eb754d0ff60dfae070f2ee (patch)
treef7c854b7af5cb2b9dc4da14850b8b56c21cac5e2
parent948569298b6a4fe63e76b05da1ccade9cec101f4 (diff)
downloademacs-de5d41c2f8bc27ae96eb754d0ff60dfae070f2ee.tar.gz
(syms_of_data): Mark most-positive-fixnum and
most-negative-fixnum as constants.
-rw-r--r--src/ChangeLog3
-rw-r--r--src/data.c2
2 files changed, 5 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index a246449bfb7..52aeaf130a1 100644
--- 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 6f1256786ec..6b1a9fc8860 100644
--- 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