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

By default, use / as directory separator under windows

Browse source
This commit is contained in:
jjgarcia 2004-08-02 08:21:54 +00:00
parent d76a72edd9
commit bc6b0c4ea1
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/pathname.d
View file

@ -838,10 +838,10 @@ ecl_namestring(cl_object x, int truncate_if_unreadable)
y = CAR(l);
if (y == @':relative') {
if (logical)
writestr_stream(";", buffer);
writec_stream(';', buffer);
} else {
if (!logical)
writestr_stream("/", buffer);
writec_stream(DIR_SEPARATOR, buffer);
}
for (l = CDR(l); !endp(l); l = CDR(l)) {
y = CAR(l);
@ -856,7 +856,7 @@ ecl_namestring(cl_object x, int truncate_if_unreadable)
} else {
FEerror("Directory :back has no namestring representation",0);
}
writestr_stream(logical? ";" : "/", buffer);
writec_stream(logical? ';' : DIR_SEPARATOR, buffer);
}
NO_DIRECTORY:
y = x->pathname.name;