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

In TRUENAME, ".." was not eliminated from the path

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-31 03:16:15 +01:00
parent da15b84a8b
commit 86e54c8a28
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/unixfsys.d
View file

@ -299,9 +299,10 @@ enter_directory(cl_object base_dir, cl_object subdir)
"actually points to a file or special device.",
2, subdir, base_dir);
}
cl_print(1,subdir);
if (subdir == @':up') {
cl_object newdir= output->pathname.directory;
newdir = ecl_nbutlast(newdir, 0);
newdir = ecl_nbutlast(newdir, 1);
if (Null(newdir)) {
FEerror("Pathname contained an :UP component "
"that goes above the base directory:"