在Lisp中将关键字参数转换为关联列表

Question

如果我有一个函数或宏(我将与宏一起)，则接受一些关键字参数，例如：

(defmacro mwe (&whole args &key name description &allow-other-keys)
  (pushnew (list-to-alist args) *some-var*))

如果我想说，mwe的所有用法都是这样的：

(mwe :name name :prop1 value1 :prop2 value2)

如何轻松地将其转换为一个运算符(或者可能是一个哈希表，但我认为这对于仅2-10个字段来说就太过分了)，以便使用assoc更容易地检索关键字-参数。

Answer 1

可以使用GETF访问属性列表中的键/值元素：

CL-USER 19 > (getf '(:name name :prop1 value1 :prop2 value2)
                   :prop2)
VALUE2

若要将属性列表转换为assoc列表，请使用例如：

CL-USER 18 > (loop for (parameter value)
                     on '(:name name :prop1 value1 :prop2 value2)
                     by #'cddr
                   collect (cons parameter value))
((:NAME . NAME) (:PROP1 . VALUE1) (:PROP2 . VALUE2))

Answer 2

我目前使用的是这个(假设列表总是偶数)：

(defun list-to-alist (plist)
  (when plist
    (destructuring-bind (a b . rest) plist
      (cons (cons a b)
            (list-to-alist rest)))))

但我想听听有什么改进或更好的方法来处理这个案子。我可以接受一个答案，以完全不同的方式处理&whole/&key的情况，如果它更有意义。