From edfa9106ca7c5ebf374129fa1dc96b69dddbcc51 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 Mar 1993 05:44:21 +0000 Subject: [PATCH] (INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros. (COMPILEDP, BUFFERP, SUBRP, PROCESSP, FRAMEP, WINDOWP): New macros. (WINDOW_CONFIGURATIONP, FLOATP): New macros. --- src/lisp.h | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/src/lisp.h b/src/lisp.h index bc2a2122488..a2abfa0fc1b 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -586,8 +586,21 @@ typedef unsigned char UCHAR; #define NUMBERP(x) (XTYPE (x) == Lisp_Int) #endif -/* #define LISTP(x) (XTYPE ((x)) == Lisp_Cons)*/ +#define INTEGERP(x) (XTYPE ((x)) == Lisp_Int) +#define SYMBOLP(x) (XTYPE ((x)) == Lisp_Symbol) +#define MARKERP(x) (XTYPE ((x)) == Lisp_Marker) +#define STRINGP(x) (XTYPE ((x)) == Lisp_String) +#define VECTORP(x) (XTYPE ((x)) == Lisp_Vector) #define CONSP(x) (XTYPE ((x)) == Lisp_Cons) +#define COMPILEDP(x) (XTYPE ((x)) == Lisp_Compiled) +#define BUFFERP(x) (XTYPE ((x)) == Lisp_Buffer) +#define SUBRP(x) (XTYPE ((x)) == Lisp_Subr) +#define PROCESSP(x) (XTYPE ((x)) == Lisp_Process) +#define FRAMEP(x) (XTYPE ((x)) == Lisp_Frame) +#define WINDOWP(x) (XTYPE ((x)) == Lisp_Window) +#define WINDOW_CONFIGURATIONP(x) (XTYPE ((x)) == Lisp_Window_Configuration) +#define FLOATP(x) (XTYPE ((x)) == Lisp_Float) + #define EQ(x, y) (XFASTINT (x) == XFASTINT (y)) #define GC_EQ(x, y) (XGCTYPE (x) == XGCTYPE (y) && XPNTR (x) == XPNTR (y))