anchor.diff:    (subseq (storage sink) 0))
   
   (defvar *proxy-url* nil)
  -(defvar *proxy-user* nil)
  -(defvar *proxy-pass* nil)
  +(defver *proxy* nil
  +  "instance of proxy-url")
  +(defvar *proxy-server* nil
  +  "proxy server address and port")
  +(defvar *proxy-user* nil
  +  "set proxy username if authorization is required to use the proxy")
  +(defvar *proxy-pass* nil
  +  "set proxy password if authorization is required to use the proxy")
   
   (defun full-proxy-path (host port path)
     (format nil "~:[http~;https~]://~A~:[:~D~;~*~]~A"
  
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: 
  (defun install (&key ((:path *home*) *home*)
                    ((:proxy *proxy-url*) *proxy-url*)
                    client-url
                    client-version
                    dist-url
                    dist-version)
    (setf *home* (merge-pathnames *home* (truename *default-pathname-defaults*)))
    (when *proxy-url*
      (setf *proxy* (parse-urlstring *proxy-url* :proxy-auth (need-proxyauthenticate-p *proxy-url*)))
      (setf *proxy-server* (proxyurlstring *proxy*))
      (setf *proxy-user* (proxy-user *proxy*))
      (setf *proxy-pass* (proxy-pass *proxy*)))
    (let ((name (non-empty-file-namestring *home*)))
      (when name
        (warn "Making ~A part of the install pathname directory"
  