;; Tell some Lisps about my home directory. CMU CL already has a search list
;; which does the same job.
-#+(and unix (or sbcl clisp))
+#+(and unix (or sbcl clisp ecl))
(let* ((homestring (or #+sbcl (sb-ext:posix-getenv "HOME")
- #+clisp (ext:getenv "HOME")
+ #+(or clisp ecl) (ext:getenv "HOME")
"/home/mdw"))
(home (pathname (concatenate 'string homestring "/"))))
(setf (logical-pathname-translations "HOME")