anchor.diff:  
   (defun upload-distinfo-files (dist base-directory)
     (flet ((url (file)
  -           (format nil "http://beta.quicklisp.org/dist/~A/~A/~A"
  +           (format nil "http://~A/dist/~A/~A/~A"
  +		   *dist-bucket*
                      (name dist)
                      (version dist)
                      (file-namestring file))))
  
positive.code:     (setf (canonical-distinfo-url dist)
            (format nil "http://~A/dist/~A/~A/distinfo.txt" host name version))
      (setf (distinfo-subscription-url dist)
            (format nil "http://~A/dist/~A.txt" host name))))
  
  (defmethod (setf name) :after (new-name (dist merged-dist))
    (reinitialize-urls dist))
  
negative.code:              (lambda (key)
                 (when (search "distinfo.txt" (zs3:name key))
                   (let* ((name (zs3:name key))
                          (url (format nil "http://~A/~A"
  				     *dist-bucket*
                                       name))
                          (version (key-version name)))
                     (format stream "~A ~A~%" version url))))
  