anchor.diff:                          "# project url size file-md5 content-sha1 prefix [system-file1..system-fileN]"))))
   
   (defclass merged-dist (dist)
  -  ())
  +  ((source-dist
  +    :initarg :source-dist
  +    :accessor source-dist)))
  +
  +(defclass merged-release (release) ())
  +
  +(defmethod local-archive-file ((release merged-release))
  +  (let ((default (call-next-method)))
  +    (or (probe-file default)
  +	(let* ((source (source-dist (dist release)))
  +	       (original-release (find-release-in-dist (name release) source)))
  +	  (unless original-release
  +	    (error "No orignal release for ~A" release))
  +	  (let ((original-file (probe-file (local-archive-file original-release))))
  +	    (unless original-file
  +	      (error "No original file for ~A" original-release))
  +	    original-file)))))
   
   (defgeneric copy-instance (object &rest initargs))
   
  
positive.code: 	      (format t "~A already there~%" release)
  	      (progn
  		(when (probe-file archive)
  		  (format t "Uploading ~A~%"
  			  release)
  		  (put-to-s3-url (local-archive-file release)
  
negative.code:         (m2 (archive-md5 r2))
          (s1 (archive-content-sha1 r1))
          (s2 (archive-content-sha1 r2))
  	(size1 (archive-size r1))
  	(size2 (archive-size r2))
          (name (project-name r1))
          (v1 nil)
          (v2 nil)
  