anchor.diff:  (in-package #:ql-dist)
   
   (defvar *temp-alphabet* "abcdefghijklmnopqrstuvwxyz0123456890")
  +
  +(defvar *dist-bucket* "beta.quicklisp.org")
   
   (defun sync-mock ()
     (commando:with-posix-cwd (qmerge "dists")
  
positive.code: 	    (mapcar #'name (mapcar #'first updated)))
      (format t "Removed projects: ~{~A~^, ~}."
  	    (mapcar #'name removed))))
  
negative.code: (defgeneric reinitialize-urls (object))
  
  (defmethod reinitialize-urls ((dist merged-dist))
    (let ((host *dist-bucket*)
          (name (name dist))
          (version (version dist)))
      (setf (system-index-url dist)
  