diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:11:24 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:11:24 +0000 |
| commit | 3e5752067ff3d30291ca2f6a5bb027565ebe21ea (patch) | |
| tree | a159c6d3927118dbf76764fa7cceec3070a47545 | |
| parent | 2c267c8faf94d1887d5ce791b817c5402a16dc97 (diff) | |
| download | emacs-3e5752067ff3d30291ca2f6a5bb027565ebe21ea.tar.gz | |
(translate_id): Use type test macros.
| -rw-r--r-- | src/vmsfns.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vmsfns.c b/src/vmsfns.c index 6a9c2b2b449..9c9269487f8 100644 --- a/src/vmsfns.c +++ b/src/vmsfns.c @@ -680,8 +680,8 @@ translate_id (pid, owner) 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 @@ translate_id (pid, owner) vmserrstr (status)); return (id); } - if (XTYPE (pid) == Lisp_Int) + if (INTEGERP (pid)) return (XFASTINT (pid)); CHECK_STRING (pid, 0); pid = Fupcase (pid); |