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: 
  (defun upload-distinfo-files (dist base-directory)
    (flet ((url (file)
             (format nil "http://beta.quicklisp.org/dist/~A/~A/~A"
                     (name dist)
                     (version dist)
                     (file-namestring file))))
  
negative.code: 	    (mapcar #'name (mapcar #'first updated)))
      (format t "Removed projects: ~{~A~^, ~}."
  	    (mapcar #'name removed))))
  
  
  (defun publish-alpha (&key keep)
    (let ((update (merge-dists "quicklisp" "mock" :keep keep))
  	(*dist-bucket* "alpha.quicklisp.org")
  	(zs3:*credentials* (zs3:file-credentials "~/.qlalpha")))
      (setf (name update) "qlalpha"
  	  (version update) (date-for-today))
      (upload-new-releases update)
      (write-indexes update "/tmp/qlalpha/")
      (upload-distinfo-files update "/tmp/qlalpha/")
      (put-to-s3-url "/tmp/qlalpha/distinfo.txt"
  		   "http://alpha.quicklisp.org/dist/qlalpha.txt"
  		   :overwrite t :content-type "text/plain")
      (write-dist-versions-file "qlalpha"
  			      "/tmp/qlalpha/qlalpha-versions.txt")
      (put-to-s3-url "/tmp/qlalpha/qlalpha-versions.txt"
  		   "http://alpha.quicklisp.org/dist/qlalpha-versions.txt"
  		   :overwrite t :content-type "text/plain")))
  