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/**/*.*")))
CL-USER(5): (TRANSLATE-PATHNAME #P"IDO:IMMUNOLOGY;" #P"IDO:IMMUNOLOGY;**;*.*" #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")
Debugger invoked on condition of type SIMPLE-ERROR:
Unsupported case in TRANSLATE-DIRECTORY-COMPONENTS.
Restarts:
0: TOP-LEVEL Return to top level.
I patched it with the following, but don't know if it's the right thing
(defun translate-directory-components-aux (src from to case)
(cond
((and (null src) (null from) (null to))
NIL)
((and to
(not (member (car to) '(:wild :wild-inferiors))))
(cons (casify (car to) case)
(translate-directory-components-aux src from (cdr to) case)))
-->
((and (not src) (eq (car from) :wild-inferiors) (eq (car to) :wild-inferiors))
(translate-directory-components-aux src (cdr from) (cdr to) case))
-->
((not (and src from))
;; both are NIL --> TO is a wildcard which can't be matched
;; either is NIL --> SRC can't be fully matched against FROM, vice versa
(throw 'failed-match))
...
I concur btw that having a function that generates a report to include for the developers would be a good thing.
Svn version, possibly the svn diff wrt to that, java version, etc.
-Alan
On Mon, Jan 18, 2010 at 5:12 AM, Mark Evenson
<evenson@panix.com> wrote:
On 1/17/10 11:09 PM, Alan Ruttenberg wrote:
> A recent commit (dec 2009) seems to have changed the behavior of
> wild-inferiors.
> Prior to the change :wild-inferiors would match 0 or more pathname
> components. After the change 1 or more.
>
> e.g.
>
> (TRANSLATE-PATHNAME #P"IDO:IMMUNOLOGY;" #P"IDO:IMMUNOLOGY;**;*.*"
> #P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")
>
> Used to work, but now fails.
>
> Unsupported case in TRANSLATE-DIRECTORY-COMPONENTS.
this bug. getting
CL-USER> (TRANSLATE-PATHNAME #P"IDO:IMMUNOLOGY;"
#P"IDO:IMMUNOLOGY;**;*.*"
#P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")
#P"/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/IDO:IMMUNOLOGY;"
Could you please provide more information about which version of ABCL
has this problem?
Note to developers: the task of determining which version of ABCL
people report problems to us would be simplified if we included better
versioning wrt. SVN. There is a "version.src" Ant property that is
stored in the abcl.jar file to keep track of versions, but when I last
looked into it I never found a reasonable way to set it from Ant, as
there is no built-in support in Ant for Subversion. If we could depend
on the existence of a 'svn' client binary in the PATH, we could parse
its output, but this seems like a bad bet under Windows as a sizable
number of people presumably use Explorer Shell extensions like
TortoiseSVN. It looks like a possible route would be to parse the
contents of '.svn/entries' if it exists to take a stab at reporting
which SVN version abcl.jar was built from. Without access to an SVN
client we couldn't tell reliably if the source has been modified from
that SVN version, but it would give us a decent place to start.
--
"A screaming comes across the sky. It has happened before, but there
is nothing to compare to it now."