summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrey Grozin <grozin@gentoo.org>2009-12-17 12:16:41 +0000
committerAndrey Grozin <grozin@gentoo.org>2009-12-17 12:16:41 +0000
commitb89f5e18efe80ce2eba471d0ac8a9b170ea4c72c (patch)
treef5682b5211e91ee61593180cb72553fb069c7f40 /dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch
parentVersion bump (to improve maxima support), ebuild from the lisp overlay (diff)
downloadhistorical-b89f5e18efe80ce2eba471d0ac8a9b170ea4c72c.tar.gz
historical-b89f5e18efe80ce2eba471d0ac8a9b170ea4c72c.tar.bz2
historical-b89f5e18efe80ce2eba471d0ac8a9b170ea4c72c.zip
Initial import (from the lisp overlay)
Package-Manager: portage-2.2_rc60/cvs/Linux i686
Diffstat (limited to 'dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch')
-rw-r--r--dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch13
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