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

Restore previous fix by M. Goffioul which I accidentally deleted (Juanjo)

Browse source
This commit is contained in:
jgarcia 2006-09-06 15:20:30 +00:00
parent 3b4a4d98b6
commit 30596c077f
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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;
}