sbcl-init.lisp

(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")))

openmcl-init.lisp

(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")))