diff options
author | Vonfry <mail@vonfry.name> | 2023-12-31 11:04:04 +0800 |
---|---|---|
committer | Vonfry <mail@vonfry.name> | 2023-12-31 11:04:04 +0800 |
commit | e9a8b6e46577d11e2e4570b99d1ff7b95012217c (patch) | |
tree | eeb4434b839dcb25b5f60191915b469d7496b425 /pkgs/applications/editors/emacs/elisp-packages/update-melpa.el | |
parent | 344705ea5d1a24d909ed9b0f6fcfd6b4d10bb356 (diff) |
update-melpa: use cl-lib instead of cl
Diffstat (limited to 'pkgs/applications/editors/emacs/elisp-packages/update-melpa.el')
-rw-r--r-- | pkgs/applications/editors/emacs/elisp-packages/update-melpa.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pkgs/applications/editors/emacs/elisp-packages/update-melpa.el b/pkgs/applications/editors/emacs/elisp-packages/update-melpa.el index 1494135808560..72d4583900452 100644 --- a/pkgs/applications/editors/emacs/elisp-packages/update-melpa.el +++ b/pkgs/applications/editors/emacs/elisp-packages/update-melpa.el @@ -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) |