Re: [Clg-devel] the last expression in tools/clg-tools.asd

[Chisheng H. <cp...@ch...>]

Chisheng Huang <cp...@ch...> writes:

> 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\\".
  ^^^^^^^^^^^^^^^^^^^^^
Should be #P"d:\\home\\aaa\\clg\\".

Best,

-cph