What do you read, my lord? Words, words, words.

(setf (logical-pathname-translations "home") `(("**;*.*.*" ,(concatenate 'string (posix-getenv "HOME") "/**/*.*"))) (logical-pathname-translations "sbcl") `(("**;*.*.*" ,(logical-pathname "home:Library;sbcl;**;*.*"))) (logical-pathname-translations "src") `(("**;*.*.*" ,(logical-pathname "home:Src;**;*.*"))) (logical-pathname-translations "systems") `(("**;*.*.*" ,(logical-pathname "sbcl:systems;**;*.*")))) (require 'asdf) (setf asdf:*central-registry* '(#p"systems:")) (asdf:operate 'asdf:load-op 'asdf-install) (setf asdf-install:*locations* `((,(truename "systems:src") ,(truename "systems:") "SBCL specific installation")))

(setf (logical-pathname-translations "src") `(("**;*.*.*" ,(logical-pathname "home:Src;**;*.*"))) (logical-pathname-translations "systems") `(("**;*.*.*" ,(logical-pathname "home:Library;CCL;systems;**;*.*")))) (load "ccl:tools;asdf.lisp") (setf asdf:*central-registry* '( *default-pathname-defaults* #p"systems:")) (asdf:operate 'asdf:load-op 'asdf-install) (setf asdf-install:*locations* `((,(truename "systems:src") ,(truename "systems:") "Personal installation")))