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

[Win32] DIRECTORY now lists root directory correctly (M. Goffioul)

Browse source
This commit is contained in:
mgoffioul 2006-09-06 13:26:43 +00:00
parent 52d7fed2ac
commit 08eaeb9a93
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -33,6 +33,8 @@ ECL 1.0:
- [Win32] Processes are now correctly listed with MP:ALL-PROCESSES (M. Goffioul)
- [Win32] DIRECTORY now lists root directory correctly (M. Goffioul)
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

14
src/c/unixfsys.d
View file

@ -72,6 +72,9 @@ static cl_object
current_dir(void) {
cl_object output;
const char *ok;
#ifdef _MSC_VER
char *c;
#endif
cl_index size = 128;
do {
@ -86,8 +89,15 @@ current_dir(void) {
strcpy(other->base_string.self, output->base_string.self);
output = other;
}
output->base_string.self[size++] = '/';
output->base_string.self[size] = 0;
#ifdef _MSC_VER
for (c=output->base_string.self; *c; c++)
if (*c == '\\')
*c = '/';
#endif
if (output->base_string.self[size-1] != '/') {
output->base_string.self[size++] = '/';
output->base_string.self[size] = 0;
}
output->base_string.fillp = size;
return output;
}