anchor.diff:            (parse-integer (archive-size release)))
       release))
   
  -(defmethod find-release-in-dist (release-name dist)
  +(defmethod find-release-in-dist (release-name (dist dist))
     (let* ((index (release-index dist))
            (release (gethash release-name index)))
       (or release
  -        (let ((line (cdb-lookup dist release-name "releases.cdb")))
  +        (let ((line (cdb-lookup dist release-name
  +                                (ensure-release-cdb-file dist))))
             (when line
               (setf (gethash release-name index)
                     (make-release-from-line line dist)))))))
  
positive.code:           (find-release-in-dist (release system) dist))
      system))
  
  (defmethod find-system-in-dist (system-name dist)
    (let* ((index (system-index dist))
           (system (gethash system-name index)))
      (or system
          (let ((line (cdb-lookup dist system-name "systems.cdb")))
            (when line
              (setf (gethash system-name index)
                    (make-system-from-line line dist)))))))
  
negative.code:         collect system))
  
  
  (defmethod ensure-system-index-file ((dist dist))
    (let ((pathname (relative-to dist "systems.txt")))
      (or (probe-file pathname)
          (nth-value 1 (fetch (system-index-url dist) pathname)))))
  
  (defmethod ensure-system-cdb-file ((dist dist))
    (let* ((system-file (ensure-system-index-file dist))
           (cdb-file (make-pathname :type "cdb" :defaults system-file)))
      (or (probe-file cdb-file)
          (ql-cdb:convert-index-file system-file
                                     :cdb-file cdb-file
                                     :index 1))))
  
  (defmethod ensure-release-index-file ((dist dist))
    (let ((pathname (relative-to dist "releases.txt")))
      (or (probe-file pathname)
          (nth-value 1 (fetch (release-index-url dist) pathname)))))
  
  (defmethod ensure-release-cdb-file ((dist dist))
    (let* ((release-file (ensure-release-index-file dist))
           (cdb-file (make-pathname :type "cdb" :defaults release-file)))
      (or (probe-file cdb-file)
          (ql-cdb:convert-index-file release-file
                                     :cdb-file cdb-file
                                     :index 0))))
  
  
  (defun dist-name-pathname (name)
  