From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 01:18:46 +0000 (+0000)
Subject: (sys_subshell): Use type test macros.
X-Git-Tag: emacs-19.34~6744
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=914e81a2886eca1838ba4c9419234d74533f53d3;p=emacs.git

(sys_subshell): Use type test macros.
---

diff --git a/src/sysdep.c b/src/sysdep.c
index 95398fa500c..3b2b2f613b3 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -667,7 +667,7 @@ sys_subshell ()
   if (XFASTINT (Fboundp (dir)) == XFASTINT (Qnil))
     goto xyzzy;
   dir = Fsymbol_value (dir);
-  if (XTYPE (dir) != Lisp_String)
+  if (!STRINGP (dir))
     goto xyzzy;
 
   dir = expand_and_dir_to_file (Funhandled_file_name_directory (dir), Qnil);