Don't mangle pathnames, wget stopped working.
Fri May 8 07:45:14 PDT 2009 maciej@pasternacki.net
* Don't mangle pathnames, wget stopped working.
diff -rN -u old-cl-librarian/src/downloading.lisp new-cl-librarian/src/downloading.lisp
--- old-cl-librarian/src/downloading.lisp 2014-07-25 10:43:06.000000000 -0700
+++ new-cl-librarian/src/downloading.lisp 2014-07-25 10:43:06.000000000 -0700
@@ -16,6 +16,7 @@
(defgeneric get-file-using-protocol (protocol address directory)
(:documentation "Download file by protocol `PROTOCOL' from address `ADDRESS' into `DIRECTORY'. Return full pathname of downloaded file."))
+;;; FIXME: use explicit full path
(defmethod get-file-using-protocol
(protocol address directory
&aux
@@ -28,8 +29,7 @@
:output e))))
"Default file getter: use wget."
(print err)
- (merge-pathnames (subseq err (1+ (position #\" err)) (position #\" err :from-end t))
- directory))
+ (pathname (subseq err (1+ (position #\" err)) (position #\" err :from-end t))))
(defmethod get-file-using-protocol ((protocol (eql :asdf-install)) address directory)
"Pseudo-protocol :ASDF-INSTALL to fetch ASDF-installable files."