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)

如何使用assoc轻松地将其转换为alist（或者可能是哈希表，但我认为仅仅2-10个字段会有点过分），以便更轻松地检索关键字参数？< / p>

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

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情况的答案。

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

2 个答案: