[armedbear-devel] Bug in translate-logical-pathname.

Erik Huelsmann ehuels at gmail.com
Wed Nov 25 23:14:12 UTC 2009

Hi Thomas,

Just a minute ago, I committed a fix by replacing the current
algorithm with a new one along the lines I described to you before.
Your example works, hopefully any other uses too.



On Mon, Nov 16, 2009 at 9:14 PM, Thomas Russ <tar at isi.edu> wrote:
> There seems to be a bug in TRANSLATE-LOGICAL-PATHNAME when the logical
> pathname source includes constant elements in addition to wildcards.
> Here is an example that demonstrates the problem:
>  CL-USER(1): (setf (logical-pathname-translations "L")
>                  '(("L:NATIVE;**;*.*" "/usr/lisp/abcl/native/**/*.*")))
>  ((#P"L:NATIVE;**;*.*" #P"/usr/lisp/abcl/native/**/*.*"))
>  CL-USER(2): (translate-logical-pathname "L:NATIVE;TEST;FOO.FASL")
>  #P"/usr/lisp/abcl/native/native/test/foo.fasl"
> ;; ERROR.  Should be #P"/usr/lisp/abcl/native/test/foo.fasl"
> ;;
> ;; With :wild-inferiors, the full directory path is copied instead of
> ;; just the part after the matching constant part.  That results in
> ;; the "native" element appearing twice.
> ;;

More information about the armedbear-devel mailing list