Changeset 13035

Timestamp:

11/20/10 15:30:10 (13 years ago)

Author:

Mark Evenson

Message:

[ticket #108][svn r13027] Fix download problems with ASDF-INSTALL.

Location:

branches/0.23.x/abcl

Files:

• CHANGES (modified) (1 diff)
• contrib/asdf-install/installer.lisp (modified) (4 diffs)
• contrib/asdf-install/port.lisp (modified) (2 diffs)
• contrib/asdf-install/variables.lisp (modified) (1 diff)

branches/0.23.x/abcl/CHANGES

@@ -16 +16 @@
 Fixes
 -----
+
+* [ticket #108][svn r13027] Fix download problems with ASDF-INSTALL
 
 * [ticket #110][svn r13024,r13026] Fix #\+ in JAR pathnames does not work

branches/0.23.x/abcl/contrib/asdf-install/installer.lisp

@@ -303 +303 @@
 (defun tar-arguments (source packagename)
   #-(or :win32 :mswindows :scl)
-  (list "-C" (namestring (truename source))
+  (list "-C"    (namestring (truename source))
   "-xzvf" (namestring (truename packagename)))
   #+(or :win32 :mswindows)
@@ -312 +312 @@
     (namestring (truename packagename))))
   #+scl
-  (list "-C" (ext:unix-namestring (truename source))
+  (list "-C"    (ext:unix-namestring (truename source))
   "-xzvf" (ext:unix-namestring (truename packagename))))
 
@@ -334 +334 @@
          ;; Some tar programs (OSX) list entries with preceeding "x "
          ;; as in "x entry/file.asd"
-         (pos-begin (if (= (search "x " tar) 0)
+         (pos-begin (if (string= (subseq tar 0 2) "x ")
                         2
                         0))
@@ -345 +345 @@
         `(:relative ,(subseq tar pos-begin pos-slash)))
      source)))
-    ;(princ tar)
     (loop for sysfile in (append
                           (directory

branches/0.23.x/abcl/contrib/asdf-install/port.lisp

@@ -145 +145 @@
   (let ((socket 
          (ext:make-socket (url-host url) (url-port url))))
-    (ext:get-socket-stream socket)))
+    (ext:get-socket-stream socket :external-format :iso-8859-1)))
 
 
@@ -322 +322 @@
    '(:external-format :latin1)
    #+:scl
+   '(:external-format :iso-8859-1)
+   #+abcl
    '(:external-format :iso-8859-1)
    #+(or :clisp :digitool (and :lispworks :win32))

branches/0.23.x/abcl/contrib/asdf-install/variables.lisp

@@ -53 +53 @@
 
 (defvar *gnu-tar-program*
-  #-(or :netbsd :freebsd :solaris) "tar"
-  #+(or :netbsd :freebsd :solaris) "gtar"
+  #-(or :netbsd :freebsd :solaris :sunos) "tar"
+  #+(or :netbsd :freebsd :solaris :sunos) "gtar"
   "Path to the GNU tar program")