mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-01 10:10:27 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix translation of pathnames with version = :WILD

Browse source
This commit is contained in:
jjgarcia 2005-08-03 16:53:26 +00:00
parent 4793bb9320
commit 5a7e3dfd80
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/pathname.d
View file

@ -1456,13 +1456,11 @@ copy_list_wildcards(cl_object *wilds, cl_object to)
out->pathname.type = d;
/* Match version */
if (to->pathname.version == @':wild') {
if (out->pathname.version == @':wild')
out->pathname.version = source->pathname.version;
else
goto error2;
} else {
out->pathname.version = to->pathname.version;
out->pathname.version = to->pathname.version;
if (source->pathname.version == @':wild') {
if (to->pathname.version == @':wild') {
out->pathname.version = from->pathname.version;
}
}
return out;