将关键字参数转换为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)

我怎样才能轻松地将其转换为alist(或者可能是一个哈希表,但我认为仅仅2-10个字段就会过度使用),以便更容易地检索关键字参数,使用assoc？

Answer 1

您可以使用它GETF来访问属性列表中的键/值元素:

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

要将属性列表转换为关联列表,请使用例如:

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))