~mdw
/
profile
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5f56828
)
dot/lisp-init.lisp: Refactor setting of `HOME:'.
author
Mark Wooding
<mdw@distorted.org.uk>
Wed, 16 Sep 2015 10:50:07 +0000
(11:50 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Wed, 16 Sep 2015 10:50:07 +0000
(11:50 +0100)
dot/lisp-init.lisp
patch
|
blob
|
blame
|
history
diff --git
a/dot/lisp-init.lisp
b/dot/lisp-init.lisp
index
6f5de00
..
9defa8c
100644
(file)
--- a/
dot/lisp-init.lisp
+++ b/
dot/lisp-init.lisp
@@
-33,14
+33,13
@@
#+sbcl (require :sb-posix)
#+cmu (ext:clear-search-list "HOME")
#+(and unix (or sbcl clisp cmu))
#+sbcl (require :sb-posix)
#+cmu (ext:clear-search-list "HOME")
#+(and unix (or sbcl clisp cmu))
-(let ((#1=#:home (pathname (concatenate 'string
- (or #+sbcl (sb-posix:getenv "HOME")
- #+clisp (ext:getenv "HOME")
- #+cmu (unix:unix-getenv "HOME")
- "/home/mdw")
- "/"))))
+(let* ((#1=#:homestring (or #+sbcl (sb-posix:getenv "HOME")
+ #+clisp (ext:getenv "HOME")
+ #+cmu (unix:unix-getenv "HOME")
+ "/home/mdw"))
+ (#2=#:home (pathname (concatenate 'string #1# "/"))))
(setf (logical-pathname-translations "HOME")
(setf (logical-pathname-translations "HOME")
- `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #
1
# nil)))
+ `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #
2
# nil)))
(logical-pathname-translations "CL")
'(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*")
("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*"))))
(logical-pathname-translations "CL")
'(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*")
("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*"))))