Changeset 13027 for trunk/abcl/contrib/asdf-install
- Timestamp:
- 11/19/10 11:24:10 (12 years ago)
- Location:
- trunk/abcl/contrib/asdf-install
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/asdf-install/installer.lisp
r12878 r13027 303 303 (defun tar-arguments (source packagename) 304 304 #-(or :win32 :mswindows :scl) 305 (list "-C" (namestring (truename source))305 (list "-C" (namestring (truename source)) 306 306 "-xzvf" (namestring (truename packagename))) 307 307 #+(or :win32 :mswindows) … … 312 312 (namestring (truename packagename)))) 313 313 #+scl 314 (list "-C" (ext:unix-namestring (truename source))314 (list "-C" (ext:unix-namestring (truename source)) 315 315 "-xzvf" (ext:unix-namestring (truename packagename)))) 316 316 … … 334 334 ;; Some tar programs (OSX) list entries with preceeding "x " 335 335 ;; as in "x entry/file.asd" 336 (pos-begin (if ( = (search "x " tar) 0)336 (pos-begin (if (string= (subseq tar 0 2) "x ") 337 337 2 338 338 0)) … … 345 345 `(:relative ,(subseq tar pos-begin pos-slash))) 346 346 source))) 347 ;(princ tar)348 347 (loop for sysfile in (append 349 348 (directory -
trunk/abcl/contrib/asdf-install/port.lisp
r12487 r13027 145 145 (let ((socket 146 146 (ext:make-socket (url-host url) (url-port url)))) 147 (ext:get-socket-stream socket )))147 (ext:get-socket-stream socket :external-format :iso-8859-1))) 148 148 149 149 … … 322 322 '(:external-format :latin1) 323 323 #+:scl 324 '(:external-format :iso-8859-1) 325 #+abcl 324 326 '(:external-format :iso-8859-1) 325 327 #+(or :clisp :digitool (and :lispworks :win32)) -
trunk/abcl/contrib/asdf-install/variables.lisp
r12487 r13027 53 53 54 54 (defvar *gnu-tar-program* 55 #-(or :netbsd :freebsd :solaris ) "tar"56 #+(or :netbsd :freebsd :solaris ) "gtar"55 #-(or :netbsd :freebsd :solaris :sunos) "tar" 56 #+(or :netbsd :freebsd :solaris :sunos) "gtar" 57 57 "Path to the GNU tar program") 58 58
Note: See TracChangeset
for help on using the changeset viewer.