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