diff options
| author | Stefan Monnier | 2003-06-01 18:03:00 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-06-01 18:03:00 +0000 |
| commit | 6f8eafd15c3d912d942419dc4b982df5db913910 (patch) | |
| tree | 6b83d62e4aab1986e50647d69515ff08a8a5d59f /src | |
| parent | 485219e0a2c1ce8be3f3179a6129bd540275ce60 (diff) | |
| download | emacs-6f8eafd15c3d912d942419dc4b982df5db913910.tar.gz emacs-6f8eafd15c3d912d942419dc4b982df5db913910.zip | |
(openp): Make sure STR is a string.
Diffstat (limited to 'src')
| -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 525e045b029..ec23028c9f4 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1054,6 +1054,8 @@ openp (path, str, suffixes, storeptr, predicate) | |||
| 1054 | Lisp_Object string, tail, encoded_fn; | 1054 | Lisp_Object string, tail, encoded_fn; |
| 1055 | int max_suffix_len = 0; | 1055 | int max_suffix_len = 0; |
| 1056 | 1056 | ||
| 1057 | CHECK_STRING (str); | ||
| 1058 | |||
| 1057 | for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) | 1059 | for (tail = suffixes; CONSP (tail); tail = XCDR (tail)) |
| 1058 | { | 1060 | { |
| 1059 | CHECK_STRING_CAR (tail); | 1061 | CHECK_STRING_CAR (tail); |