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

DIRECTORY now takes care of files that have colons in their names

Browse source
This commit is contained in:
jgarcia 2008-04-06 16:02:07 +00:00
parent 62c7bd8989
commit 0c331e67cb
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/unixfsys.d
View file

@ -687,6 +687,14 @@ dir_files(cl_object basedir, cl_object pathname)
char *text = new->base_string.self;
if (file_kind(text, TRUE) == @':directory')
continue;
if (ecl_member_char(':', new)) {
/* File names are allowed to have ':', but ECL
* interprets colons as separators for device names
* By prepending the name with a ':', we set the device
* to NIL and parse the file name properly */
new = si_base_string_concatenate(2, make_constant_base_string(":"),
new);
}
new = cl_pathname(new);
if (Null(cl_pathname_match_p(new, mask)))
continue;

2
src/lsp/config.lsp.in
View file

@ -24,7 +24,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2008-03-18 22:50)")
"@PACKAGE_VERSION@ (CVS 2008-04-06 18:01)")
(defun machine-type ()
"Args: ()