the last expression in tools/clg-tools.asd

Hi Espen,

Could you please replace the last expression in tools/clg-tools.asd
with the following?

(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)))))

With the current one in CVS, the pathname device part will be missing
on Micros*t machines.  For example: if the clg directory is at
d:\home\aaa\clg\, (translate-logical-pathname "clg:") will give
#P"\\home\\aaa\\clg\\" as the answer but the correct answer should be
#P"d:home\\aaa\\clg\\".

Best wishes,

-cph

-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/