267 |
object word, casekey; |
object word, casekey; |
268 |
{ |
{ |
269 |
object x=word; |
object x=word; |
270 |
|
|
271 |
|
#ifdef ANSI_COMMON_LISP |
272 |
|
|
273 |
int seen_lower=0; |
int seen_lower=0; |
274 |
int seen_upper=0; |
int seen_upper=0; |
275 |
int i; |
int i; |
292 |
} |
} |
293 |
} else |
} else |
294 |
if (casekey == sKdowncase) { |
if (casekey == sKdowncase) { |
|
#ifdef ANSI_COMMON_LISP |
|
295 |
if ((seen_lower != seen_upper) || pathname_resolve(pathKansi)) |
if ((seen_lower != seen_upper) || pathname_resolve(pathKansi)) |
|
#else |
|
|
if (seen_lower != seen_upper) |
|
|
#endif |
|
296 |
{ x=copy_simple_string(word); |
{ x=copy_simple_string(word); |
297 |
for (i=0; i<word->st.st_fillp; i++) |
for (i=0; i<word->st.st_fillp; i++) |
298 |
if (isupper(word->st.st_self[i])) |
if (isupper(word->st.st_self[i])) |
300 |
} |
} |
301 |
} |
} |
302 |
} |
} |
303 |
|
#endif |
304 |
|
|
305 |
vs_push(x); /* make-pathname will vs_reset later */ |
vs_push(x); /* make-pathname will vs_reset later */ |
306 |
return(x); |
return(x); |
307 |
} |
} |