Commit 9d113d9d authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(Vmost_positive_fixnum, Vmost_negative_fixnum): Renamed

from most_positive_fixnum and most_negative_fixnum, resp., and
type changed to Lisp_Object.
(syms_of_data): DEFVAR_LISP them.
parent b5f1c9fa
2001-12-07 Andreas Schwab <schwab@suse.de>
* data.c (Vmost_positive_fixnum, Vmost_negative_fixnum): Renamed
from most_positive_fixnum and most_negative_fixnum, resp., and
type changed to Lisp_Object.
(syms_of_data): DEFVAR_LISP them.
2001-12-07 Richard M. Stallman <rms@gnu.org>
 
* callproc.c (init_callproc): Set Vdata_directory based on the source
......
......@@ -96,7 +96,7 @@ 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 Vmost_positive_fixnum, Vmost_negative_fixnum;
void
......@@ -3208,13 +3208,13 @@ syms_of_data ()
XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
DEFVAR_INT ("most-positive-fixnum", &most_positive_fixnum,
doc: /* The largest value that is representable in a Lisp integer. */);
most_positive_fixnum = MOST_POSITIVE_FIXNUM;
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);
DEFVAR_INT ("most-negative-fixnum", &most_negative_fixnum,
doc: /* The smallest value that is representable in a Lisp integer. */);
most_negative_fixnum = MOST_NEGATIVE_FIXNUM;
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);
}
SIGTYPE
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment