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

Do not set *DEFAULT-PATHNAME-DEFAULTS* because some people expect it to be empty.

Browse source
This commit is contained in:
jjgarcia 2004-01-08 11:23:50 +00:00
parent 90a0382ae8
commit 0eae764528
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/main.d
View file

@ -250,7 +250,13 @@ cl_boot(int argc, char **argv)
ECL_SET(@'*print-case*', @':upcase');
cl_core.pathname_translations = Cnil;
#if 0
ECL_SET(@'*default-pathname-defaults*', si_getcwd());
#else
ECL_SET(@'*default-pathname-defaults*',
make_pathname(Cnil, Cnil, Cnil, Cnil, Cnil, Cnil));
#endif
@si::pathname-translations(2,make_simple_string("SYS"),
cl_list(1,cl_list(2,make_simple_string("*.*"),
make_simple_string("./*.*"))));