Seems to be working now with a minor change. Thanks again for your very precise bug reports, Pascal.<br><br>$ ecl<br>ECL (Embeddable Common-Lisp) 10.7.1<br>Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya<br>Copyright (C) 1993 Giuseppe Attardi<br>
Copyright (C) 2000 Juan J. Garcia-Ripoll<br>ECL is free software, and you are welcome to redistribute it<br>under certain conditions; see file 'Copyright' for details.<br>Type :h for Help. <br>Top level.<br>> (setf (logical-pathname-translations "FOO") '(("FOO:**;*.LSP" "HOME:**;*.A")))<br>
<br>((#P"FOO:**;*.LSP" #P"HOME:**;*.A"))<br>> (logical-pathname-translations "SYS")<br><br>((#P"SYS:**;*.*" #P"/Users/jjgarcia/lib/ecl-10.7.1/**/*.*"))<br>> (translate-logical-pathname "FOO:FAA.LSP")<br>
<br>#P"/Users/jjgarcia/faa.a"<br><br><br><div class="gmail_quote">On Tue, Jun 29, 2010 at 10:58 PM, Pascal J. Bourguignon <span dir="ltr"><<a href="mailto:pjb@informatimago.com">pjb@informatimago.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><br>
Logical pathname translations may translate to logical pathnames or to<br>
physical pathnames.<br>
<br>
When they translate to a physical pathname, case is correctly<br>
converted to the native lowcase.<br>
<br>
But when they translate to a logical pathname, they're not. (There<br>
may be a string of translations required before ending with a physical<br>
pathname).<br>
<br>
<br>
CL-USER> (values (logical-pathname-translations "LIBCL")<br>
(translate-logical-pathname #P"LIBCL:AAA;BBB;CCC.DDD")<br>
(logical-pathname-translations "PROJECT")<br>
(translate-logical-pathname #P"PROJECT:AAA;BBB;CCC.DDD"))<br>
((#P"LIBCL:**;*.*"<br>
#P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/libcl/**/*.*")<br>
(#P"LIBCL:**;*"<br>
#P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/libcl/**/*.lisp"))<br>
#P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/libcl/aaa/bbb/ccc.ddd"<br>
((#P"PROJECT:**;*.*" #P"HOME:FIRMS;MEDICALIS;SRC;MDI;**;*.*")<br>
(#P"PROJECT:**;*" #P"HOME:FIRMS;MEDICALIS;SRC;MDI;**;*"))<br>
#P"/home/pjb/firms/medicalis/src/mdi/AAA/BBB/CCC.DDD"<br>
<br>
I expected #P"/home/pjb/firms/medicalis/src/mdi/aaa/bbb/ccc.ddd" for the last result.<br>
<br>
<br>
<br>
--<br>
__Pascal Bourguignon__ <a href="http://www.informatimago.com/" target="_blank">http://www.informatimago.com/</a><br>
<br>
<br>
------------------------------------------------------------------------------<br>
This SF.net email is sponsored by Sprint<br>
What will you do first with EVO, the first 4G phone?<br>
Visit <a href="http://sprint.com/first" target="_blank">sprint.com/first</a> -- <a href="http://p.sf.net/sfu/sprint-com-first" target="_blank">http://p.sf.net/sfu/sprint-com-first</a><br>
_______________________________________________<br>
Ecls-list mailing list<br>
<a href="mailto:Ecls-list@lists.sourceforge.net">Ecls-list@lists.sourceforge.net</a><br>
<a href="https://lists.sourceforge.net/lists/listinfo/ecls-list" target="_blank">https://lists.sourceforge.net/lists/listinfo/ecls-list</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://juanjose.garciaripoll.googlepages.com">http://juanjose.garciaripoll.googlepages.com</a><br>