# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 732174261 0
# Node ID 12b50e8d3b1cc044c67322331cbc207d57f5b87c
# Parent  82e8ee49259314baa78049840a331f8b21878981
(INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
(COMPILEDP, BUFFERP, SUBRP, PROCESSP, FRAMEP, WINDOWP): New macros.
(WINDOW_CONFIGURATIONP, FLOATP): New macros.

diff -r 82e8ee492593 -r 12b50e8d3b1c src/lisp.h
--- a/src/lisp.h	Mon Mar 15 05:43:15 1993 +0000
+++ b/src/lisp.h	Mon Mar 15 05:44:21 1993 +0000
@@ -586,8 +586,21 @@
 #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))