anchor.diff:        (add-line method " " path " HTTP/1.1")
         (add-line "Host: " host (if (= port 80) ""
                                     (format nil ":~D" port)))
  +      (when (and *proxy-url* *proxy-user* *proxy-pass*)
  +        (add-line "Proxy-Authorization: Basic " (make-basic-authentication *proxy-user* *proxy-pass*)))
         (add-line "Connection: close")
         ;; FIXME: get this version string from somewhere else.
         (add-line "User-Agent: quicklisp-bootstrap/2012112500")
  
positive.code:   (:use #:cl #:qlqs-network #:qlqs-progress)
    (:export #:fetch
             #:*proxy-url*
             #:*maximum-redirects*
             #:*default-url-defaults*))
  
  
negative.code:   t)
  
  (defun install (&key ((:path *home*) *home*)
                       ((:proxy *proxy-url*) *proxy-url*)
                       ((:user *proxy-user*) *proxy-user*)
                       ((:pass *proxy-pass*) *proxy-pass*))
    (setf *home* (merge-pathnames *home*))
    (let ((setup-file (qmerge "setup.lisp")))
      (when (probe-file setup-file)
  