anchor.diff:                             (port url2))
                    :path (or (path url1)
                              (path url2))))
  +
  +(defun need-proxyauthenticate-p (proxy-url)
  +  (and (find #\@ proxy-url)
  +       t))
   
   
   ;;; Requesting an URL and saving it to a file
  
positive.code:   (setf file (merge-pathnames file))
    (let ((redirect-count 0)
          (original-url url)
          (connect-url (or (url *proxy-url*) url))
          (stream (if quietly
                      (make-broadcast-stream)
                      *trace-output*)))
  
negative.code:   (:export #:install
             #:help
             #:*proxy-url*
             #:*asdf-url*
             #:*quicklisp-tar-url*
             #:*setup-url*
  