Logical Pathname Translations の実験

logical_pathname-translations-test.lisp

(setf (logical-pathname-translations "asdf-cache")
      `(("**;*.*.*"
	 ,(merge-pathnames
	   (make-pathname :directory '(:relative :wild-inferiors))
	   asdf:*user-cache*))))
     
; => (("**;*.*.*"  #P"/Users/yokota/.cache/common-lisp/acl-10.1s-macosx-x64/**/"))

(translate-logical-pathname "asdf-cache:bar;baz;mum.quux")
; => #P"/Users/yokota/.cache/common-lisp/acl-10.1s-macosx-x64/bar/baz/mum.quux"

;; ASDF のソースレジストリも translations に入れられたらと思ったが、asdf registory は複数指定可なので難しい
;; ASDF configuration を読み解いて translation のリストに展開して setf する感じが必要か。
;;
;; logical-pathname-translations の to-wildcard の方、関数にならないのかな・・