anchor.diff:    (:use #:cl #:qlqs-network #:qlqs-progress)
     (:export #:fetch
              #:*proxy-url*
  +           #:*proxy-user*
  +           #:*proxy-pass*
              #:*maximum-redirects*
              #:*default-url-defaults*))
   
  
positive.code:                            (= port 443))
                         port
                         path))
  
  (defun make-request-buffer (host port path &key (method "GET"))
    (setf method (string method))
  
negative.code:       (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")
  