anchor.diff:      copy))
   
   (defmethod find-system-in-dist (name (dist merged-dist))
  -  (error "Not supported"))
  +  (dolist (release (provided-releases dist))
  +    (when (equalp name (name release))
  +      (return release))))
   
   (defgeneric (setf find-release-in-dist) (new-release name dist))
   
  
positive.code:                               :if-exists :rename-and-delete)
          (map nil
               (lambda (key)
                 (when (search "distinfo.txt" (zs3:name key))
                   (let* ((name (zs3:name key))
                          (url (format nil "http://~A/~A"
  				     *dist-bucket*
  
negative.code:           (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))
      (dolist (release (provided-releases dist) (clrhash (release-index dist)))
        (multiple-value-bind (bucket key)
  	  (s3-components (archive-url release))
  	(setf (archive-url release)
  		     (format nil "http://~A/~A" *dist-bucket* key))))))
  
  (defmethod (setf name) :after (new-name (dist merged-dist))
    (reinitialize-urls dist))
  