From f7d9808859b4e7373e9e1a1b463ea95ed03ff306 Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Wed, 19 Mar 2008 14:33:06 +0000
Subject: [PATCH] Fixed logical pathname translation for win32

---
 tools/clg-tools.asd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index 21c2e0c..a7a8291 100644
--- 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)) :defaults dir)))))
-- 
2.11.0