(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