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
Pipeline #974 passed with stage
in 10 minutes and 21 seconds
......@@ -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))
(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)))))
(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))))
(defun sync-version-list! (source)
"Given a ~source~, sync the known versions of this distribution."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment