It's already excluded by the outer `#+...' guard, but there was a little
`#+cmu' dropping inside anyway. Delete this, and extend the commentary
to explain why there's this lacuna. (In more detail, CMU CL objects if
I try to establish a logical-pathname host when there's already a search
list with the same name.)
#+sbcl
(sb-ext:set-sbcl-source-location #p"/usr/share/sbcl-source/")
-;; Tell some Lisps about my home directory.
+;; Tell some Lisps about my home directory. CMU CL already has a search list
+;; which does the same job.
#+(and unix (or sbcl clisp))
(let* ((homestring (or #+sbcl (sb-ext:posix-getenv "HOME")
#+clisp (ext:getenv "HOME")
- #+cmu (unix:unix-getenv "HOME")
"/home/mdw"))
(home (pathname (concatenate 'string homestring "/"))))
(setf (logical-pathname-translations "HOME")