Mercurial > emacs
comparison src/lread.c @ 51380:0254c3b1ede8
(openp): Make sure STR is a string.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 01 Jun 2003 18:03:00 +0000 |
| parents | 0c125011ae21 |
| children | 2699fa0f135f |
comparison
equal
deleted
inserted
replaced
| 51379:f61b3dac769b | 51380:0254c3b1ede8 |
|---|---|
| 1051 Lisp_Object filename; | 1051 Lisp_Object filename; |
| 1052 struct stat st; | 1052 struct stat st; |
| 1053 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; | 1053 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; |
| 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 | |
| 1057 CHECK_STRING (str); | |
| 1056 | 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); |
| 1060 max_suffix_len = max (max_suffix_len, | 1062 max_suffix_len = max (max_suffix_len, |