# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780628284 0
# Node ID 46461644055b98b89311eeb44788bb4fd287de33
# Parent  40a353de483cb618e025853db33929feb2cd1a20
(translate_id): Use type test macros.

diff -r 40a353de483c -r 46461644055b src/vmsfns.c
--- a/src/vmsfns.c	Tue Sep 27 01:07:23 1994 +0000
+++ b/src/vmsfns.c	Tue Sep 27 01:11:24 1994 +0000
@@ -680,8 +680,8 @@
   int prcnam[2];
 
   if (NILP (pid)
-      || XTYPE (pid) == Lisp_String && XSTRING (pid)->size == 0
-      || XTYPE (pid) == Lisp_Int && XFASTINT (pid) == 0)
+      || STRINGP (pid) && XSTRING (pid)->size == 0
+      || INTEGERP (pid) && XFASTINT (pid) == 0)
     {
       code = owner ? JPI$_OWNER : JPI$_PID;
       status = lib$getjpi (&code, 0, 0, &id);
@@ -691,7 +691,7 @@
 	       vmserrstr (status));
       return (id);
     }
-  if (XTYPE (pid) == Lisp_Int)
+  if (INTEGERP (pid))
     return (XFASTINT (pid));
   CHECK_STRING (pid, 0);
   pid = Fupcase (pid);