From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 15 Nov 1994 22:45:31 +0000 (+0000)
Subject: (NATNUMP): New macro.
X-Git-Tag: emacs-19.34~5912
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4a9f09f1067e2c4c80026126e11fd68aed9e118;p=emacs.git

(NATNUMP): New macro.
(CHECK_NATNUM): Use that macro instead of its expansion.
---

diff --git a/src/lisp.h b/src/lisp.h
index d0e7d82a5e1..4ac94558336 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -748,6 +748,7 @@ typedef unsigned char UCHAR;
 #else
 #define NUMBERP(x) (INTEGERP (x))
 #endif
+#define NATNUMP(x) (INTEGERP (x) && XINT (x) >= 0)
 
 #define INTEGERP(x) (XTYPE ((x)) == Lisp_Int)
 #define SYMBOLP(x) (XTYPE ((x)) == Lisp_Symbol)
@@ -829,8 +830,7 @@ typedef unsigned char UCHAR;
   do { if (!INTEGERP ((x))) x = wrong_type_argument (Qintegerp, (x)); } while (0)
 
 #define CHECK_NATNUM(x, i) \
-  do { if (!INTEGERP ((x)) || XINT ((x)) < 0)	\
-      x = wrong_type_argument (Qwholenump, (x)); } while (0)
+  do { if (!NATNUMP (x)) x = wrong_type_argument (Qwholenump, (x)); } while (0)
 
 #define CHECK_MARKER(x, i) \
   do { if (!MARKERP ((x))) x = wrong_type_argument (Qmarkerp, (x)); } while (0)