From 48152465f72e0e1e8dd8443a6163318da04b9c81 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] dot/lisp-init.lisp: Add another LP host for the CLC archive. --- dot/lisp-init.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp index fdb2229..6f5de00 100644 --- a/dot/lisp-init.lisp +++ b/dot/lisp-init.lisp @@ -40,7 +40,10 @@ "/home/mdw") "/")))) (setf (logical-pathname-translations "HOME") - `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #1# nil))))) + `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #1# nil))) + (logical-pathname-translations "CL") + '(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*") + ("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*")))) ;; Various fixings. #+clisp (setf custom:*parse-namestring-ansi* t) -- 2.11.0