Using ASDF to set up logical pathname translation for clg

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index 65891639a5b7ad7e73f6cbc391064141c98e8ab1..21c2e0c493daecd99e736d483f46a04d63b7109d 100644 (file)
--- a/tools/clg-tools.asd
+++ b/tools/clg-tools.asd
@@ -16,3 +16,10 @@
               (:file "config" :depends-on ("utils"))
               (:file "asdf-extensions" :depends-on ("utils"))
               (:file "autoexport" :depends-on ("asdf-extensions"))))
+
+
+
+;; For backward compatibility
+(setf
+ (logical-pathname-translations "clg")
+ `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory (asdf:component-pathname (asdf:find-system :clg-tools)))) (list :wild-inferiors))))))