# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784943726 0
# Node ID 9daedd94a204b20c00ce290ab02a2e85b4a83440
# Parent  586bb11227158328ca59098b7bed5e6c2d36e54d
(NETCONN_P, kill_buffer_processes): Use the new type-test macros.

diff -r 586bb1122715 -r 9daedd94a204 src/process.c
--- a/src/process.c	Tue Nov 15 23:55:03 1994 +0000
+++ b/src/process.c	Tue Nov 15 23:55:26 1994 +0000
@@ -111,7 +111,7 @@
 #ifdef HAVE_SOCKETS
 static Lisp_Object stream_process;
 
-#define NETCONN_P(p) (XGCTYPE (XPROCESS (p)->childp) == Lisp_String)
+#define NETCONN_P(p) (GC_STRINGP (XPROCESS (p)->childp))
 #else
 #define NETCONN_P(p) 0
 #endif /* HAVE_SOCKETS */
@@ -3005,11 +3005,10 @@
 {
   Lisp_Object tail, proc;
 
-  for (tail = Vprocess_alist; XGCTYPE (tail) == Lisp_Cons;
-       tail = XCONS (tail)->cdr)
+  for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCONS (tail)->cdr)
     {
       proc = XCONS (XCONS (tail)->car)->cdr;
-      if (XGCTYPE (proc) == Lisp_Process
+      if (GC_PROCESSP (proc)
 	  && (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer)))
 	{
 	  if (NETCONN_P (proc))