anchor.diff:    (setf file (merge-pathnames file))
     (let ((redirect-count 0)
           (original-url url)
  -        (connect-url (or (url *proxy-server*) url))
  +        (connect-url (or (url *proxy-url*) url))
           (stream (if quietly
                       (make-broadcast-stream)
                       *trace-output*)))
  
positive.code:                            (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
  
negative.code:                   dist-url
                    dist-version)
    (setf *home* (merge-pathnames *home* (truename *default-pathname-defaults*)))
    (let ((name (non-empty-file-namestring *home*)))
      (when name
        (warn "Making ~A part of the install pathname directory"
  