clg-devel

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

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

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

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

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

[Espen S J. <es...@cs...>]

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

Thanks, should be fixed now.

-- 
Espen