mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

si:coerce-to-file-pathname: make sure that device component is not empty if necessary

Browse source 
Needed to so that the device component of pathnames returned by
truename is not empty on Windows.
This commit is contained in:
Marius Gerbershagen 2023-07-15 18:31:49 +02:00
parent 8a86cabc7d
commit ded1d1ee07
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/pathname.d
View file

@ -848,22 +848,18 @@ cl_logical_pathname(cl_object x)
* INV: Wildcards are allowed.
* INV: A fresh new copy of the pathname is created.
* INV: The pathname is absolute.
* INV: The device component is copied from getcwd if necessary.
*/
cl_object
si_coerce_to_file_pathname(cl_object pathname)
{
pathname = si_coerce_to_physical_pathname(pathname);
pathname = cl_merge_pathnames(1, pathname);
#if 0
#if !defined(cygwin) && !defined(ECL_MS_WINDOWS_HOST)
if (pathname->pathname.device != ECL_NIL)
FEerror("Device ~S not yet supported.", 1,
pathname->pathname.device);
if (pathname->pathname.host != ECL_NIL)
FEerror("Access to remote files not yet supported.", 0);
if (
#ifdef ECL_MS_WINDOWS_HOST
pathname->pathname.device == ECL_NIL ||
#endif
#endif
if (pathname->pathname.directory == ECL_NIL ||
pathname->pathname.directory == ECL_NIL ||
ECL_CONS_CAR(pathname->pathname.directory) == @':relative') {
pathname = cl_merge_pathnames(2, pathname, si_getcwd(0));
}