diff src/data.c @ 6459:30fabcc03f0c

(Qwholenump): New variable. (syms_of_data): Set and gcpro Qwholenump.
author Richard M. Stallman <rms@gnu.org>
date Tue, 22 Mar 1994 00:14:47 +0000
parents 9d04c87e0da1
children 89ff61b53cee
line wrap: on
line diff
--- a/src/data.c	Tue Mar 22 00:14:10 1994 +0000
+++ b/src/data.c	Tue Mar 22 00:14:47 1994 +0000
@@ -71,7 +71,7 @@
 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
-Lisp_Object Qintegerp, Qnatnump, Qsymbolp, Qlistp, Qconsp;
+Lisp_Object Qintegerp, Qnatnump, Qwholenump, Qsymbolp, Qlistp, Qconsp;
 Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
 Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp;
 Lisp_Object Qbuffer_or_string_p;
@@ -2021,6 +2021,7 @@
   Qsymbolp = intern ("symbolp");
   Qintegerp = intern ("integerp");
   Qnatnump = intern ("natnump");
+  Qwholenump = intern ("wholenump");
   Qstringp = intern ("stringp");
   Qarrayp = intern ("arrayp");
   Qsequencep = intern ("sequencep");
@@ -2204,6 +2205,7 @@
   staticpro (&Qsymbolp);
   staticpro (&Qintegerp);
   staticpro (&Qnatnump);
+  staticpro (&Qwholenump);
   staticpro (&Qstringp);
   staticpro (&Qarrayp);
   staticpro (&Qsequencep);
@@ -2301,6 +2303,8 @@
   defsubr (&Sadd1);
   defsubr (&Ssub1);
   defsubr (&Slognot);
+
+  Fset (Qwholenump, Qnatnump);
 }
 
 SIGTYPE