anchor.diff:  (defgeneric reinitialize-urls (object))
   
   (defmethod reinitialize-urls ((dist merged-dist))
  -  (let ((host "beta.quicklisp.org")
  +  (let ((host *dist-bucket*)
           (name (name dist))
           (version (version dist)))
       (setf (system-index-url dist)
  
positive.code: (in-package #:ql-dist)
  
  (defvar *temp-alphabet* "abcdefghijklmnopqrstuvwxyz0123456890")
  
  (defun sync-mock ()
    (commando:with-posix-cwd (qmerge "dists")
  
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))))
  