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

Slightly more verbose message when coercing to filenames.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-03-06 23:57:53 +01:00
parent 46feed7874
commit 5fcd784bb9
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/pathname.d
View file

@ -914,8 +914,19 @@ si_coerce_to_filename(cl_object pathname_orig)
ECL_NAMESTRING_TRUNCATE_IF_ERROR |
ECL_NAMESTRING_FORCE_BASE_STRING);
if (namestring == Cnil) {
FEerror("Pathname ~A does not have a physical namestring",
1, pathname_orig);
FEerror("Pathname without a physical namestring:"
"~% :HOST ~A"
"~% :DEVICE ~A"
"~% :DIRECTORY ~A"
"~% :NAME ~A"
"~% :TYPE ~A"
"~% :VERSION ~A",
6, pathname_orig->pathname.host,
pathname_orig->pathname.device,
pathname_orig->pathname.directory,
pathname_orig->pathname.name,
pathname_orig->pathname.type,
pathname_orig->pathname.version);
}
if (cl_core.path_max != -1 &&
ecl_length(namestring) >= cl_core.path_max - 16)