diff options
Diffstat (limited to 'dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch')
| -rw-r--r-- | dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch b/dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch new file mode 100644 index 000000000000..d69a58f6b4e1 --- /dev/null +++ b/dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch @@ -0,0 +1,13 @@ +Index: level-1/l1-pathnames.lisp +=================================================================== +--- level-1/l1-pathnames.lisp (revision 11951) ++++ level-1/l1-pathnames.lisp (working copy) +@@ -624,7 +624,7 @@ + (let* ((native + (ignore-errors + (truename +- (native-to-directory-pathname (or #+ccl-0711 (getenv "HOME") ++ (native-to-directory-pathname (or (getenv "HOME") + (get-user-home-dir (getuid)))))))) + (if (and native (eq :absolute (car (pathname-directory native)))) + native |