lisp-modules: Fetch systems over HTTPS

quicklisp does not support TLS (https://github.com/quicklisp/quicklisp-client/issues/167) and therefore lists release with http in release.txt. Since nixpkgs uses `fetchzip` we can change the source to be fetched over HTTPS.
2025-07-22 17:32:08 +02:00
parent a506444d89
commit ca7d34e71b
2 changed files with 4714 additions and 4710 deletions
@@ -112,13 +112,17 @@

      (sqlite:with-transaction db
        (dolist (line releases-lines)
-          (destructuring-bind (project url size md5 sha1 prefix &rest asds)
+          (destructuring-bind (project http-url size md5 sha1 prefix &rest asds)
              (str:words line)
-            (sql-query
-             "insert or ignore into quicklisp_release values(?,?,?,?,?,?,?)"
-             project url size md5 sha1 prefix (json:stringify (coerce
-                                                               asds
-                                                               'vector))))))
+            ;; quicklisp does not support TLS
+            ;; https://github.com/quicklisp/quicklisp-client/issues/167
+            ;; but since we fetch systems using nix we can adapt the url.
+            (let ((url (str:replace-first "http://" "https://" http-url)))
+              (sql-query
+               "insert or ignore into quicklisp_release values(?,?,?,?,?,?,?)"
+               project url size md5 sha1 prefix (json:stringify (coerce
+                                                                 asds
+                                                                 'vector)))))))

      ;; Weed out circular dependencies from the package graph.
      (sqlite:with-transaction db