anchor.diff:    (setf file (merge-pathnames file))
     (let ((redirect-count 0)
           (original-url url)
  -        (connect-url (or (url *proxy-url*) url))
  +        (connect-url (or (url *proxy-server*) url))
           (stream (if quietly
                       (make-broadcast-stream)
                       *trace-output*)))
  
positive.code: 
  (defun install (&key ((:path *home*) *home*)
                    ((:proxy *proxy-url*) *proxy-url*)
                    ((:user *proxy-user*) *proxy-user*)
                    ((:pass *proxy-pass*) *proxy-pass*)
                    client-url
                    client-version
                    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"
  
negative.code:   (:export #:install
             #:help
             #:*proxy-url*
             #:*asdf-url*
             #:*quicklisp-tar-url*
             #:*setup-url*
  