X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/2e26d08e01ef71edea42ee32139aed916a0a4833..4be9c64b9e44676c872cabeea6acd682843792b9:/tools/clg-tools.asd

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index 21c2e0c..cf6fb2e 100644
--- a/tools/clg-tools.asd
+++ b/tools/clg-tools.asd
@@ -14,12 +14,12 @@
   :depends-on (#+sbcl sb-posix)
   :components ((:file "utils")
 	       (:file "config" :depends-on ("utils"))
-	       (:file "asdf-extensions" :depends-on ("utils"))
+	       (:file "asdf-extensions" :depends-on ("utils" "config"))
 	       (: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))))))
+(let ((dir (asdf:component-pathname (asdf:find-system :clg-tools))))
+  (setf (logical-pathname-translations "clg")
+   `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory dir)) (list :wild-inferiors)) #+win32 :defaults #+win32 dir)))))