From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 1 Jun 2003 18:03:00 +0000 (+0000)
Subject: (openp): Make sure STR is a string.
X-Git-Tag: ttn-vms-21-2-B4~9814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f8eafd15c3d912d942419dc4b982df5db913910;p=emacs.git

(openp): Make sure STR is a string.
---

diff --git a/src/lread.c b/src/lread.c
index 525e045b029..ec23028c9f4 100644
--- 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);