In 12389 just checked out and compiled just now.<div><br></div><div><div>CL-USER(4): (setf (logical-pathname-translations "ido") '((#P"IDO:IDO-CORE;**;*.*" #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/ido-core/**/*.*") (#P"IDO:IMMUNOLOGY;**;*.*" #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/immunology/**/*.*") (#P"IDO:TOOLS;**;*.*" #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/tools/**/*.*") (#P"IDO:LIB;**;*.*" #P"/Users/alanr/repos/infectious-disease-ontology/trunk/lib/**/*.*")))</div>
<div><br></div><div><br></div><div>CL-USER(5): (TRANSLATE-PATHNAME #P"IDO:IMMUNOLOGY;" #P"IDO:IMMUNOLOGY;**;*.*" #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")</div>
<div>Debugger invoked on condition of type SIMPLE-ERROR:</div><div> Unsupported case in TRANSLATE-DIRECTORY-COMPONENTS.</div><div>Restarts:</div><div> 0: TOP-LEVEL Return to top level.</div><div><br></div><div>I patched it with the following, but don't know if it's the right thing</div>
<div><br></div><div><br></div><div><div> (defun translate-directory-components-aux (src from to case)</div><div> (cond</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>((and (null src) (null from) (null to))</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span> NIL)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>((and to</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (not (member (car to) '(:wild :wild-inferiors))))</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span> (cons (casify (car to) case)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (translate-directory-components-aux src from (cdr to) case)))</div>
<div>--></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>((and (not src) (eq (car from) :wild-inferiors) (eq (car to) :wild-inferiors))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (translate-directory-components-aux src (cdr from) (cdr to) case))</div>
<div>--></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>((not (and src from))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> ;; both are NIL --> TO is a wildcard which can't be matched</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span> ;; either is NIL --> SRC can't be fully matched against FROM, vice versa</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (throw 'failed-match))</div>
<div>...</div><div><br></div><div>I concur btw that having a function that generates a report to include for the developers would be a good thing.</div><div>Svn version, possibly the svn diff wrt to that, java version, etc.</div>
<div><br></div><div>-Alan</div></div><div><br></div><div><div class="gmail_quote">On Mon, Jan 18, 2010 at 5:12 AM, Mark Evenson <span dir="ltr"><<a href="mailto:evenson@panix.com">evenson@panix.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div></div><div class="h5">On 1/17/10 11:09 PM, Alan Ruttenberg wrote:<br>
> A recent commit (dec 2009) seems to have changed the behavior of<br>
> wild-inferiors.<br>
> Prior to the change :wild-inferiors would match 0 or more pathname<br>
> components. After the change 1 or more.<br>
><br>
> e.g.<br>
><br>
> (TRANSLATE-PATHNAME #P"IDO:IMMUNOLOGY;" #P"IDO:IMMUNOLOGY;**;*.*"<br>
> #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")<br>
><br>
> Used to work, but now fails.<br>
><br>
> Unsupported case in TRANSLATE-DIRECTORY-COMPONENTS.<br>
<br>
</div></div>In both the released abcl-0.18.0 and trunk (as of r12383), I don't see<br>
this bug. getting<br>
<br>
CL-USER> (TRANSLATE-PATHNAME #P"IDO:IMMUNOLOGY;"<br>
<div class="im">#P"IDO:IMMUNOLOGY;**;*.*"<br>
#P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")<br>
</div>#P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/IDO:IMMUNOLOGY;"<br>
<br>
Could you please provide more information about which version of ABCL<br>
has this problem?<br>
<br>
Note to developers: the task of determining which version of ABCL<br>
people report problems to us would be simplified if we included better<br>
versioning wrt. SVN. There is a "version.src" Ant property that is<br>
stored in the abcl.jar file to keep track of versions, but when I last<br>
looked into it I never found a reasonable way to set it from Ant, as<br>
there is no built-in support in Ant for Subversion. If we could depend<br>
on the existence of a 'svn' client binary in the PATH, we could parse<br>
its output, but this seems like a bad bet under Windows as a sizable<br>
number of people presumably use Explorer Shell extensions like<br>
TortoiseSVN. It looks like a possible route would be to parse the<br>
contents of '.svn/entries' if it exists to take a stab at reporting<br>
which SVN version abcl.jar was built from. Without access to an SVN<br>
client we couldn't tell reliably if the source has been modified from<br>
that SVN version, but it would give us a decent place to start.<br>
<font color="#888888"><br>
--<br>
"A screaming comes across the sky. It has happened before, but there<br>
is nothing to compare to it now."<br>
</font><div><div></div><div class="h5"><br>
_______________________________________________<br>
armedbear-devel mailing list<br>
<a href="mailto:armedbear-devel@common-lisp.net">armedbear-devel@common-lisp.net</a><br>
<a href="http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel" target="_blank">http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel</a><br>
</div></div></blockquote></div><br></div></div>