diff src/data.c @ 93259:889781860700

(syms_of_data): Mark most-positive-fixnum and most-negative-fixnum as constants.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 26 Mar 2008 18:14:02 +0000
parents 606f2d163a64
children c7f0faccd3c2
line wrap: on
line diff
--- 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