From dab00e44a4d7653a29b19b5ad8038be8b287816b Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 16 Sep 2015 11:50:07 +0100 Subject: [PATCH] dot/lisp-init.lisp: Refactor setting of `HOME:'. --- dot/lisp-init.lisp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp index 6f5de00..9defa8c 100644 --- 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)) -(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") - `(("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/**/*.*")))) -- 2.11.0