emacs - Elisp - 遍历 alist

Question

在 Emacs Lisp 中遍历 alist 并对每一对执行某些操作的最佳方法是什么？我想宏不会很难，我只是想知道它是否内置在某个地方。有没有比下面更优雅的方式？

(setq my-list '((a . 1)
                (b . 2)
                (c . 3)))

(loop for key in (mapcar 'car my-list)
      for value in (mapcar 'cdr my-list)
      collect (cons value key))

;; Returns this
((1 . a)
 (2 . b)
 (3 . c))

Answer 1

cl-loop来自 cl-macs.el 支持像 CL 一样销毁:

(cl-loop for (key . value) in my-list
      collect (cons value key))