The recursive implementation of DIRECTORY with wildcard inferiors forget all inner directories in (DIRECTORY "/foo/**/").

This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-13 23:10:49 +01:00
parent c761fa5a51
commit 82252f6868
2 changed files with 4 additions and 1 deletions

View file

@ -11,6 +11,9 @@ ECL 10.3.2:
- The tool 'ecl-config' contained unsubstituted values, such as @LDRPATH@
because these variablesls had been renamed in the autoconf file.
- The reimplementation of DIRECTORY introduced a bug in pathnames with ending
double wildcars, such as "/foo/**/".
* Visible changes:
- The source location annotator records the original pathnames, not the

View file

@ -830,7 +830,7 @@ dir_recursive(cl_object base_dir, cl_object directory, cl_object filemask)
* we have to find a file which corresponds to the description.
*/
if (directory == Cnil) {
return dir_files(base_dir, filemask);
return ecl_nconc(dir_files(base_dir, filemask), output);
}
/*
* 2) We have not yet exhausted the DIRECTORY component of the