(sys_subshell): Use type test macros.

diff --git a/src/sysdep.c b/src/sysdep.c
index 95398fa500c85d7c49b7a1dc2defbf79dceec86c..3b2b2f613b340a3b2a25148a832c735054edd612 100644 (file)
--- 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);