mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-19 16:30:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

Common case translation did not work for directory components

Browse source
This commit is contained in:
jgarcia 2007-01-05 18:43:27 +00:00
parent e6502efe62
commit daac2cb958
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/pathname.d
View file

@ -287,7 +287,7 @@ translate_directory_case(cl_object list, cl_object scase)
} else {
cl_object l;
list = cl_copy_list(list);
for (l = cl_copy_list(list); !endp(l); l = CDR(l)) {
for (l = list; !endp(l); l = CDR(l)) {
/* It is safe to pass anything to translate_pathname_case,
* because it will only transform strings, leaving other
* object (such as symbols) unchanged.*/