/[gentoo-x86]/dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch
Gentoo

Contents of /dev-lisp/clozurecl/files/fix_user-homedir-pathname.patch

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download) (as text)
Thu Aug 4 09:35:20 2011 UTC (8 years, 6 months ago) by grozin
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
File MIME type: text/x-diff
FILE REMOVED
Version bump

(Portage version: 2.2.0_alpha49/cvs/Linux i686)

1 Index: level-1/l1-pathnames.lisp
2 ===================================================================
3 --- level-1/l1-pathnames.lisp (revision 11951)
4 +++ level-1/l1-pathnames.lisp (working copy)
5 @@ -624,7 +624,7 @@
6 (let* ((native
7 (ignore-errors
8 (truename
9 - (native-to-directory-pathname (or #+ccl-0711 (getenv "HOME")
10 + (native-to-directory-pathname (or (getenv "HOME")
11 (get-user-home-dir (getuid))))))))
12 (if (and native (eq :absolute (car (pathname-directory native))))
13 native

  ViewVC Help
Powered by ViewVC 1.1.20