[Openmcl-devel] Weird ASDF problem

[Ron Garret]

On Sep 10, 2010, at 10:29 PM, Ron Garret wrote:

> 
> On Sep 10, 2010, at 10:19 PM, Ron Garret wrote:
> 
>> Maybe the bundled ASDF has changed?
> 
> Yes, that seems to be the problem.  I reverted to an earlier version (1.719) and now it's working again.

Actually, it seems to be a bug in merge-pathnames:

? (merge-pathnames "ccl:")
#P"ccl:Users;ron;devel;lisp-code;..newest"

For the record:

Welcome to Clozure Common Lisp Version 1.6-dev-r14251M-trunk  (DarwinX8664)!

? *default-pathname-defaults*
#P"/Users/ron/devel/lisp-code/"
? (pprint (logical-pathname-translations "ccl"))

((#P"ccl:l1;**;*.*" #P"ccl:level-1;**;*.*") (#P"ccl:l1f;**;*.*" #P"ccl:l1-fasls;**;*.*")
 (#P"ccl:ccl;*.*" #P"/Users/ron/devel/ccl/trunk/*.*")
 (#P"ccl:**;*.*" #P"/Users/ron/devel/ccl/trunk/**/*.*"))

You can hack around the problem (at least for ASDF) thusly:

(let ((*WARN-IF-REDEFINE-KERNEL* nil))
  (defun ccl::translated-namestring (path)
    (namestring (merge-pathnames (translate-logical-pathname path)))))

but the merge-pathnames code itself is too furry for me to tackle at midnight on a Friday.

rg