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

ecl_homedir_pathname: fix error message for unknown user

Browse source 
Fixes #724
This commit is contained in:
Marius Gerbershagen 2024-01-28 11:49:48 +01:00
parent 089f4c25d8
commit 34ecb5c313
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixfsys.d
View file

@ -752,10 +752,10 @@ ecl_homedir_pathname(cl_object user)
#ifdef HAVE_PWD_H
pwent = getpwnam(p);
if (pwent == NULL)
FEerror("Unknown user ~S.", 1, p);
FEerror("Unknown user ~S.", 1, user);
namestring = ecl_make_simple_filename(pwent->pw_dir,-1);
#endif
FEerror("Unknown user ~S.", 1, p);
FEerror("Unknown user ~S.", 1, user);
} else if ((h = ecl_getenv(ecl_fstr("HOME")))) {
namestring = ecl_make_simple_filename(h,-1);
#if defined(ECL_MS_WINDOWS_HOST)