destructuring-bind => cl-destructuring-bind

This commit is contained in:
Henrik Lissner 2017-06-25 02:04:50 +02:00
parent c493ad80f4
commit 822c78554f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 10 additions and 10 deletions

View file

@ -23,7 +23,7 @@ submodule in the format, e.g. ':feature evil')."
(cl-loop for (module . sub) in (reverse (hash-table-keys doom-modules))
collect (format "%s %s" module sub))
nil t)))
(destructuring-bind (category submodule)
(cl-destructuring-bind (category submodule)
(mapcar #'intern (split-string module " "))
(unless (member (cons category submodule) (doom--module-pairs))
(error "'%s' isn't a valid module" module))

View file

@ -473,7 +473,7 @@ calls."
nil t)
(user-error "All packages are up to date"))))
(list (cdr (assq (car (assoc package package-alist)) packages)))))
(destructuring-bind (package old-version new-version) pkg
(cl-destructuring-bind (package old-version new-version) pkg
(if-let (desc (doom-package-outdated-p package))
(let ((old-v-str (package-version-join old-version))
(new-v-str (package-version-join new-version)))