update-melpa: use cl-lib instead of cl

This commit is contained in:
Vonfry
2023-12-31 11:04:04 +08:00
parent 344705ea5d
commit e9a8b6e465
@@ -6,7 +6,7 @@
(require 'semaphore-promise)
(require 'url)
(require 'json)
(require 'cl)
(require 'cl-lib)
(require 'subr-x)
(require 'seq)
@@ -77,7 +77,7 @@ return Promise to resolve in that process."
(defun parse-previous-archive (filename)
(let ((idx (make-hash-table :test 'equal)))
(loop for desc in
(cl-loop for desc in
(let ((json-object-type 'hash-table)
(json-array-type 'list)
(json-key-type 'symbol))
@@ -166,7 +166,7 @@ return Promise to resolve in that process."
(defun recipe-info (recipe-index ename)
(if-let (desc (gethash ename recipe-index))
(destructuring-bind (rcp-commit . rcp-sha256) desc
(cl-destructuring-bind (rcp-commit . rcp-sha256) desc
`((commit . ,rcp-commit)
(sha256 . ,rcp-sha256)))
`((error . "No recipe info"))))
@@ -204,7 +204,7 @@ return Promise to resolve in that process."
(seq-let [recipe-index unstable-sha stable-sha] res
(append `((ename . ,ename))
(if-let (desc (gethash ename recipe-index))
(destructuring-bind (rcp-commit . rcp-sha256) desc
(cl-destructuring-bind (rcp-commit . rcp-sha256) desc
(append `((commit . ,rcp-commit)
(sha256 . ,rcp-sha256))
(when (not unstable-aprops)