asdf-binary-locations-devel

Download

asdf-binary-locations-devel@common-lisp.net

October 2008

1 participants
1 discussions

Re: [asdf-binary-locations-devel] a-b-l patch
by Gary King 24 Oct '08

24 Oct '08

(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

1 0