lisp - 编写一个将创建函数的 Lisp 函数/宏

Question

我想编写一个函数/宏来编写一个创建列表结构的宏。什么是开始的好地方。我正在寻找类似 (mkList id name phone) 的东西，并让它产生 (defun (id name phone) (list :id id :name name :phone phone)) ，最好使用 &rest。有什么想法吗？

Answer 1

这应该给你一些提示:

CL-USER 39 > (defun foo (l)
               (cons 'list
                     (mapcan (lambda (e)
                               (list (intern (symbol-name e)
                                             (find-package "KEYWORD"))
                                     e))
                             l)))
FOO

CL-USER 40 > (foo '(a b c))
(LIST :A A :B B :C C)