diff options
| author | Stefan Monnier <[email protected]> | 2003-06-01 18:03:00 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2003-06-01 18:03:00 +0000 |
| commit | 6f8eafd15c3d912d942419dc4b982df5db913910 (patch) | |
| tree | 6b83d62e4aab1986e50647d69515ff08a8a5d59f /src/lread.c | |
| parent | 485219e0a2c1ce8be3f3179a6129bd540275ce60 (diff) | |
(openp): Make sure STR is a string.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index 525e045b02..ec23028c9f 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); |