(openp): Make sure STR is a string.

diff --git a/src/lread.c b/src/lread.c
index 525e045b02945cd6134198c159ac9320add1f19b..ec23028c9f4f2ea0c3b9b3f1660a5728429b0b43 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1054,6 +1054,8 @@ openp (path, str, suffixes, storeptr, predicate)
   Lisp_Object string, tail, encoded_fn;
   int max_suffix_len = 0;
 
+  CHECK_STRING (str);
+
   for (tail = suffixes; CONSP (tail); tail = XCDR (tail))
     {
       CHECK_STRING_CAR (tail);