# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780635443 0
# Node ID 6c814eb4d8924efb11b28d8f7ddf37f59c3bf5bd
# Parent  412e94c1dbf283c777d4290a88ec469db2b89f91
(Fcall_process, child_setup, getenv_internal): Use type test macros.

diff -r 412e94c1dbf2 -r 6c814eb4d892 src/callproc.c
--- a/src/callproc.c	Tue Sep 27 03:10:02 1994 +0000
+++ b/src/callproc.c	Tue Sep 27 03:10:43 1994 +0000
@@ -200,7 +200,7 @@
 
 #ifndef subprocesses
   /* Without asynchronous processes we cannot have BUFFER == 0.  */
-  if (nargs >= 3 && XTYPE (args[2]) == Lisp_Int)
+  if (nargs >= 3 && INTEGERP (args[2]))
     error ("Operating system cannot handle asynchronous subprocesses");
 #endif /* subprocesses */
 
@@ -314,7 +314,7 @@
     }
 #endif
 
-  if (XTYPE (buffer) == Lisp_Int)
+  if (INTEGERP (buffer))
     fd[1] = open (NULL_DEVICE, O_WRONLY), fd[0] = -1;
   else
     {
@@ -391,7 +391,7 @@
       report_file_error ("Doing vfork", Qnil);
     }
 
-  if (XTYPE (buffer) == Lisp_Int)
+  if (INTEGERP (buffer))
     {
       if (fd[0] >= 0)
 	close (fd[0]);
@@ -417,7 +417,7 @@
 #endif /* not MSDOS */
 
 
-  if (XTYPE (buffer) == Lisp_Buffer)
+  if (BUFFERP (buffer))
     Fset_buffer (buffer);
 
   immediate_quit = 1;
@@ -642,8 +642,7 @@
 
     new_length = 0;
     for (tem = Vprocess_environment;
-	 (XTYPE (tem) == Lisp_Cons
-	  && XTYPE (XCONS (tem)->car) == Lisp_String);
+	 CONSP (tem) && STRINGP (XCONS (tem)->car);
 	 tem = XCONS (tem)->cdr)
       new_length++;
 
@@ -657,8 +656,7 @@
 
     /* Copy the Vprocess_environment strings into new_env.  */
     for (tem = Vprocess_environment;
-	 (XTYPE (tem) == Lisp_Cons
-	  && XTYPE (XCONS (tem)->car) == Lisp_String);
+	 CONSP (tem) && STRINGP (XCONS (tem)->car);
 	 tem = XCONS (tem)->cdr)
       {
 	char **ep = env;
@@ -781,7 +779,7 @@
       Lisp_Object entry;
 
       entry = XCONS (scan)->car;
-      if (XTYPE (entry) == Lisp_String
+      if (STRINGP (entry)
 	  && XSTRING (entry)->size > varlen
 	  && XSTRING (entry)->data[varlen] == '='
 	  && ! bcmp (XSTRING (entry)->data, var, varlen))