#+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")