From a4a9f09f1067e2c4c80026126e11fd68aed9e118 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 15 Nov 1994 22:45:31 +0000 Subject: [PATCH] (NATNUMP): New macro. (CHECK_NATNUM): Use that macro instead of its expansion. --- src/lisp.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5