From fb65858f2fe12fd7d0e128e317d261d6fd9e5368 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Fri, 10 Jul 2020 20:28:43 +0100 Subject: [PATCH] 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. --- dot/lisp-init.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp index 373308a..6df03e8 100644 --- 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 -- 2.11.0