From gwking at metabang.com  Fri Oct 24 16:27:15 2008
From: gwking at metabang.com (Gary King)
Date: Fri, 24 Oct 2008 12:27:15 -0400
Subject: [asdf-binary-locations-devel] a-b-l patch
In-Reply-To: <1224798861.3332.5.camel@blackhole.universe.org>
References: <1224798861.3332.5.camel@blackhole.universe.org>
Message-ID: <5A54F1C8-1733-43E4-BA86-61AC9FDA8E00@metabang.com>

(cc'd to list)

Thanks Stelian,

I just pushed this out.


On Oct 23, 2008, at 5:54 PM, Stelian Ionescu wrote:

> I recently tried Scieneer on Linux and its pathnames-as-URIs
> implementation breaks a-b-l: see http://paste.lisp.org/display/69072#2
> for instance.
> The attached modification to pathname-prefix-p fixes a-b-l - I'm not
> sure exactly why, though
>
> --  
> Stelian Ionescu a.k.a. fe[nl]ix
> Quidquid latine dictum sit, altum videtur.
>
> diff -rN -u old-asdf-binary-locations/dev/main.lisp new-asdf-binary- 
> locations/dev/main.lisp
> --- old-asdf-binary-locations/dev/main.lisp	2008-10-23  
> 23:51:33.000000000 +0200
> +++ new-asdf-binary-locations/dev/main.lisp	2008-10-23  
> 23:51:33.000000000 +0200
> @@ -147,8 +147,11 @@
>                                           implementation version.")))
>                 (format nil "~(~@{~a~^-~}~)" lisp version os  
> arch))))))
>
> -(defun pathname-prefix-p (prefix pathname)
> -  (not (equal (enough-namestring pathname prefix) (namestring  
> pathname))))
> +(defun pathname-prefix-p (prefix pathname)
> +  (let ((prefix-ns (namestring prefix))
> +        (pathname-ns (namestring pathname)))
> +    (= (length prefix-ns)
> +       (mismatch prefix-ns pathname-ns))))
>
> (defgeneric output-files-for-system-and-operation
>   (system operation component source possible-paths)
>

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM