macros - 可以使用 destructuring-bind 定义 destructuring-setq 吗？

Question

有 destructuring-bind 但似乎没有 destructuring-setq。是否可以使用 destructuring-bind 来定义它？

(let (a b c d)
  (destructuring-setq ((a b) (c d)) '((1 2) (3 4)))
  `(,b ,d))

(destructuring-bind
    ((a b) (c d)) '((1 2) (3 4))
  `(,b ,d))

Answer 1

这将是一项非常重要的工作。

你需要做的是写一个 lambda-list analyzer这将

1. 找到所有要绑定(bind)的变量
2. 将它们替换为 gensym s(或使用 copy-symbol 来表示宏展开式完全不可读 :-) 并保留从旧符号到新符号的映射。

返回类似的东西

(destructuring-bind (new-lambda-list)
     expression
   (setq old-var-1 new-gensym-1 ...))

分析器存在于任何 Common Lisp 实现中(例如，参见上面的链接)并且它不简单。

我建议你问问自己是否destructuring-bind 真的还不够。