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

Fixed typo in the ordering of drive and path in ecl_homedir_pathname()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-03-25 18:06:45 +01:00
parent 37af713c87
commit a6e095cd7d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/unixfsys.d
View file

@ -547,12 +547,12 @@ ecl_homedir_pathname(cl_object user)
FEerror("Unknown user ~S.", 1, p);
} else if ((h = getenv("HOME"))) {
namestring = make_base_string_copy(h);
#ifdef _MSC_VER
#if defined(_MSC_VER) || defined(ming32)
} else if ((h = getenv("HOMEPATH")) && (d = getenv("HOMEDRIVE"))) {
namestring =
si_base_string_concatenate(2,
make_constant_base_string(h),
make_constant_base_string(d));
make_constant_base_string(d),
make_constant_base_string(h));
#endif
} else {
namestring = make_constant_base_string("/");