From 5fcd784bb9d4990e342bfa065c0ce28c18787e3d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 6 Mar 2011 23:57:53 +0100 Subject: [PATCH] Slightly more verbose message when coercing to filenames. --- src/c/pathname.d | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/src/c/pathname.d b/src/c/pathname.d index fc3cbebdd..d35bcc58e 100644 --- a/src/c/pathname.d +++ b/src/c/pathname.d @@ -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)