anchor.diff:      (setf (available-versions-url dist) new-url)))
   
   
  -(defmethod provided-releases ((dist dist))
  -  ;; FIXME: Should not unconditionally initialize
  -  (initialize-release-index dist)
  -  (loop for release being each hash-value of (release-index dist)
  -        collect release))
  -
  -(defmethod provided-systems ((dist dist))
  -  ;; FIXME: totally broken
  -  (loop for system being each hash-value of (system-index dist)
  -        collect system))
  -
  -
   (defmethod ensure-system-index-file ((dist dist))
     (let ((pathname (relative-to dist "systems.txt")))
       (or (probe-file pathname)
  
positive.code:    if necessary."))
  
  
  (defgeneric initialize-release-index (dist)
    (:documentation
     "Initialize the release index of DIST."))
  
  (defgeneric initialize-system-index (dist)
    (:documentation
     "Initialize the system index of DIST."))
  
  
  (defgeneric local-archive-file (release)
  
negative.code:         (ql-cdb:convert-index-file release-file
                                     :cdb-file cdb-file
                                     :index 0))))
  
  (defmethod slot-unbound (class (dist dist) (slot (eql 'provided-systems)))
    (declare (ignore class))
    (initialize-indexes dist)
    (setf (slot-value dist 'provided-systems)
          (loop for system being each hash-value of (system-index dist)
                collect system)))
  
  (defmethod slot-unbound (class (dist dist) (slot (eql 'provided-releases)))
    (declare (ignore class))
    (initialize-indexes dist)
    (setf (slot-value dist 'provided-releases)
          (loop for system being each hash-value of (release-index dist)
                collect system)))
  
  
  (defun dist-name-pathname (name)
  