4a5,6
> ;;(pushnew :andy-asdf-install *features*)
> 
23c25,28
< #+(or :win32 :mswindows)
---
> (defvar *use-cygwin* nil
>   "Set to use cygwin")
> 
> #+(and *use-cygwin* (or :win32 :mswindows))
27c32
< #+(or :win32 :mswindows)
---
> #+(and *use-cygwin* (or :win32 :mswindows))
35a41,56
> (defvar *custom-site*
>   #+(and (not *use-cygwin*) (or :win32 :mswindows))
>   "C:/cl/packages/"
>   #-(and (not *use-cygwin*) (or :win32 :mswindows))
>   nil
>   "Defines the location of the site wide package directory.
> Set to nil if you wanna use the asdf-unixy default.")
> 
> (defvar *custom-temp-dir*
>   #+(and (not *use-cygwin*) (or :win32 :mswindows))
>   "C:/temp/"
>   #-(and (not *use-cygwin*) (or :win32 :mswindows))
>   nil
>   "Use this if you're on windows because gnu tar does not
>    work with spaces in the path to the archive file")
> 
67a89
> 		   *custom-site*
282,288d303
< (defun request-uri (url)
<   (assert (string-equal url "http://" :end1 7))
<   (if *proxy*
<       url
<       (let ((path-start (position #\/ url :start 7)))
<         (subseq url path-start))))
< 
293c308
<             (request-uri url) #\Return #\Linefeed
---
>             url #\Return #\Linefeed
357,387c372,402
<       (with-open-stream (stream stream)
< 	(when (>= response 400)
< 	  (error 'download-error :url url :response response))
< 	(let ((length (parse-integer (or (cdr (assoc :content-length headers)) "")
< 				     :junk-allowed t)))
< 	  (installer-msg t "Downloading ~A bytes from ~A to ~A ..."
< 			 (or length "some unknown number of")
< 			 url
< 			 file-name)
< 	  (force-output)
< 	  #+:clisp (setf (stream-element-type stream)
< 			 '(unsigned-byte 8))
< 	  (with-open-file (o file-name :direction :output
< 			     #+(or :clisp :digitool (and :lispworks :win32))
< 			     :element-type
< 			     #+(or :clisp :digitool (and :lispworks :win32))
< 			     '(unsigned-byte 8)
< 			     #+:sbcl #+:sbcl
< 			     :external-format :latin1
< 			     :if-exists :supersede)
< 	    #+(or :cmu :digitool)
< 	    (copy-stream stream o)
< 	    #-(or :cmu :digitool)
< 	    (if length
< 		(let ((buf (make-array length
< 				       :element-type
< 				       (stream-element-type stream))))
< 		  #-:clisp (read-sequence buf stream)
< 		  #+:clisp (ext:read-byte-sequence buf stream :no-hang nil)
< 		  (write-sequence buf o))
< 		(copy-stream stream o)))))
---
>       (when (>= response 400)
>         (error 'download-error :url url :response response))
>       (let ((length (parse-integer (or (cdr (assoc :content-length headers)) "")
> 		                   :junk-allowed t)))
> 	(installer-msg t "Downloading ~A bytes from ~A to ~A ..."
> 		       (or length "some unknown number of")
>                        url
>                        file-name)
> 	(force-output)
>         #+:clisp (setf (stream-element-type stream)
>                        '(unsigned-byte 8))
> 	(with-open-file (o file-name :direction :output
>                            #+(or :clisp :digitool (and :lispworks :win32))
>                            :element-type
>                            #+(or :clisp :digitool (and :lispworks :win32))
>                            '(unsigned-byte 8)
>                            #+:sbcl #+:sbcl
>                            :external-format :latin1
>                            :if-exists :supersede)
>           #+(or :cmu :digitool)
>           (copy-stream stream o)
>           #-(or :cmu :digitool)
> 	  (if length
> 	      (let ((buf (make-array length
> 				     :element-type
> 				     (stream-element-type stream))))
> 		#-:clisp (read-sequence buf stream)
> 		#+:clisp (ext:read-byte-sequence buf stream :no-hang nil)
> 		(write-sequence buf o))
> 	      (copy-stream stream o))))
>       (close stream)
517c532
<               #+(or :win32 :mswindows)
---
>               #+(and *use-cygwin* (or :win32 :mswindows))
523a539,543
> 	      #+(and (not *use-cygwin*) (or :win32 :mswindows))
> 	      (return-output-from-program
> 	       *gnu-tar-program*
> 	       (list "-C" (namestring (truename source))
> 		     "-xzvf" (namestring (truename packagename))))
534a555,563
>     (let ((debug (append
> 		  (directory
> 		   (make-pathname :defaults (print *default-pathname-defaults*)
> 				  :name :wild
> 				  :type "asd"))
> 		  (directory
> 		   (make-pathname :defaults (print *default-pathname-defaults*)
> 				  :name :wild
> 				  :type "system"))))))
553a583,584
> 	  #+(or :win32 :mswindows)
> 	  (pushnew (directory-namestring sysfile) asdf:*central-registry*)
564c595,598
<      #+:clisp (user-homedir-pathname))))
---
>      #+:clisp
>      (or *custom-temp-dir* 
> 	 (user-homedir-pathname)
> 	 ))))
613c647
<                                          (asdf::coerce-name
---
>                                          (symbol-name