anchor.diff:  (defun release-equal (r1 r2)
     (and (equalp (ordered-provided-systems r1)
                  (ordered-provided-systems r2))
  +       #+nil
  +       (= (archive-size r1)
  +	  (archive-size r2))
          (or (equalp (archive-md5 r1)
                      (archive-md5 r2))
              (equalp (archive-content-sha1 r1)
  
positive.code:     (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")))
  
negative.code:                       :content-type content-type
                        :content-disposition content-disposition)))))
  
  (defun check-archive-size (release)
    (let ((archive (local-archive-file release)))
      (when (probe-file archive)
        (when (/= (archive-size release)
  		(file-size archive))
  	(error "Size mismatch on ~A" (name release))))))
  
  (defun upload-new-releases (dist &key overwrite)
    (dolist (release (provided-releases dist))
      (unless (typep release 'merged-release)
        (change-class release 'merged-release))
      :retry
      (with-simple-restart (retry "Retry")
        (force-output)
  