mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 09:10:41 -07:00
Code Issues Projects Releases Packages Wiki Activity

Accept extended strings when they can be coerced to base-strings

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-26 18:29:15 +01:00
parent 404e4dedba
commit 3aac33afa3
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/pathname.d
View file

@ -805,8 +805,10 @@ si_coerce_to_filename(cl_object pathname_orig)
FEerror("Too long filename: ~S.", 1, namestring);
#ifdef ECL_UNICODE
if (type_of(namestring) == t_string) {
FEerror("The filesystem does not accept filenames with extended characters: ~S",
1, namestring);
if (!ecl_fits_in_base_string(namestring))
FEerror("The filesystem does not accept filenames with extended characters: ~S",
1, namestring);
namestring = si_copy_to_simple_base_string(namestring);
}
#endif
return namestring;