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