X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fwrap.c;h=c17b0f13796fb709726bd1bd727c2360f5ecf947;hb=0285aa5ff8416027932daa001b84429be2ca559b;hp=8493bf68dc3fe6489ab222ec7596122d5b8b8cf2;hpb=621eebe206ae6c6d0d0897d43247ce5e05c2359a;p=sbcl.git

diff --git a/src/runtime/wrap.c b/src/runtime/wrap.c
index 8493bf6..c17b0f1 100644
--- a/src/runtime/wrap.c
+++ b/src/runtime/wrap.c
@@ -317,10 +317,9 @@ uid_username(int uid)
 }
 
 char *
-uid_homedir(uid_t uid)
+passwd_homedir(struct passwd *p)
 {
-    struct passwd *p = getpwuid(uid);
-    if(p) {
+    if (p) {
         /* Let's be careful about this, shall we? */
         size_t len = strlen(p->pw_dir);
         if (p->pw_dir[len-1] == '/') {
@@ -342,6 +341,18 @@ uid_homedir(uid_t uid)
         return 0;
     }
 }
+
+char *
+user_homedir(char *name)
+{
+    return passwd_homedir(getpwnam(name));
+}
+
+char *
+uid_homedir(uid_t uid)
+{
+    return passwd_homedir(getpwuid(uid));
+}
 #endif /* !LISP_FEATURE_WIN32 */
 
 /*