-#+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")
- "/"))))
+#+(and unix (or sbcl clisp))
+(let* ((#1=#:homestring (or #+sbcl (sb-ext:posix-getenv "HOME")
+ #+clisp (ext:getenv "HOME")
+ #+cmu (unix:unix-getenv "HOME")
+ "/home/mdw"))
+ (#2=#:home (pathname (concatenate 'string #1# "/"))))