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

If ECLDIR has no trailing / use TRUENAME to reinterpret is as a directory.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-17 20:25:10 +02:00
parent 40d7f14305
commit 864fc6578c
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/unixfsys.d
View file

@ -890,7 +890,11 @@ cl_object
si_get_library_pathname(void)
{
const char *v = getenv("ECLDIR");
if (v) return make_constant_base_string(v);
cl_object s;
if (v) {
s = make_constant_base_string(v);
goto OUTPUT;
}
#if defined(_MSC_VER) || defined(mingw32)
{
cl_object s = cl_alloc_adjustable_base_string(cl_core.path_max);
@ -911,10 +915,17 @@ si_get_library_pathname(void)
s = cl_make_pathname(6, @':name', Cnil, @':type', Cnil,
@':defaults', s);
s = ecl_namestring(s, 0);
goto OUTPUT;
}
#else
return make_constant_base_string(ECLDIR "/");
s = make_constant_base_string(ECLDIR "/");
#endif
OUTPUT:
/* Reinterpret filenames as directories. For instance /lib -> /lib/ */
s = cl_truename(s);
/* Produce a string */
s = ecl_namestring(s, 0);
return s;
}
@(defun ext::chdir (directory &optional (change_d_p_d Ct))