Fix to load shared libraries from default locations in CMUCL and CLISP

[clg] / tools / clg-tools.asd

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index 21c2e0c493daecd99e736d483f46a04d63b7109d..d7787e0987e4efbd50f9f511f097ecc8a7e9d08b 100644 (file)
--- a/tools/clg-tools.asd
+++ b/tools/clg-tools.asd
@@ -20,6 +20,6 @@
 
 
 ;; 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)))))