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

Fixed interpretation and check of :BACK in make-pathname

Browse source
This commit is contained in:
jgarcia 2007-01-05 18:02:22 +00:00
parent e8f08ac8d4
commit 7992f81741
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -118,7 +118,7 @@ ECL 1.0:
double-float.
- MAKE-PATHNAME should remove all occurrences of single dots "." in physical
pathnames.
pathnames and does not interpret the directory component :BACK properly.
* Unicode:

4
src/c/pathname.d
View file

@ -77,9 +77,9 @@ destructively_check_directory(cl_object directory, bool logical)
item = nth(i-1, directory);
if (item == @':absolute' || item == @':wild-inferiors')
return @':error';
if (i > 2)
if (i >= 2)
CDR(nthcdr(i-2, directory)) = CDR(ptr);
} if (item == @':up') {
} else if (item == @':up') {
if (i == 0)
return @':error';
item = nth(i-1, directory);