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

Fixed typo.

Browse source
This commit is contained in:
jgarcia 2007-12-06 17:53:50 +00:00
parent d3b37803f8
commit 21f70a0900
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/pathname.d
View file

@ -96,7 +96,7 @@ destructively_check_directory(cl_object directory, bool logical)
return @':error';
CDR(ecl_nthcdr(i-1, directory)) = CDR(ptr);
} else if (l == 2 && ecl_char(item,1) == '.') {
CAR(directory) = @':back';
CAR(ptr) = @':back';
goto BEGIN;
}
}