Commit 795a7979 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix Quicklisp syncing bug

If the versions file is present in the cache, but the db is gone for some
reason, it wouldn't ever recreate the db.
parent 72c42398
Loading
Loading
Loading
Loading
Loading
+7 −7
Original line number Diff line number Diff line
@@ -561,13 +561,13 @@
strings to distinfo.txt urls."
  (let ((versions-pathname (merge-pathnames "metadata/distinfo-versions.txt"
                                            (source/cache-directory source))))
    (when (ensure-file-fetched versions-pathname (ql-versions-url source))
    (ensure-file-fetched versions-pathname (ql-versions-url source))
    (let ((versions-lines (uiop:read-file-lines versions-pathname)))
      (mapcar (lambda (l)
                (destructuring-bind (version url)
                    (split-sequence #\Space l)
                  (cons version url)))
                versions-lines)))))
              versions-lines))))

(defun sync-version-list! (source)
  "Given a ~source~, sync the known versions of this distribution."