dot/lisp-init.lisp: Set `CL:' logical-pathname independently of `HOME:'.

There's no good reason why these should have been dependent before.

The need for circumlocution on CLisp is just gratuitously annoying.

diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index 373308a..6df03e8 100644 (file)
--- a/dot/lisp-init.lisp
+++ b/dot/lisp-init.lisp
@@ -50,10 +50,13 @@
                       "/home/mdw"))
        (home (pathname (concatenate 'string homestring "/"))))
   (setf (logical-pathname-translations "HOME")
-       `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" home nil)))
-       (logical-pathname-translations "CL")
-       '(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*")
-         ("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*"))))
+         `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" home nil)))))
+(when (#.(car '(#+clisp ext:probe-directory
+               probe-file))
+        #p"/usr/share/common-lisp/")
+  (setf (logical-pathname-translations "CL")
+         '(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*")
+           ("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*"))))
 
 ;; Various fixings.
 #+clisp