问题：当要传递的参数是序列，并且需要将所有变量作为序列序列处理时，如何处理宏中&之后的所有参数？包罗万象的变量中列出的是文字表达式。

这是一个宏，旨在大致表现Common Lisp的mapc，即做Clojure的map所做的事情，但仅出于副作用且没有延迟：

我已经意识到这不是编写domap的好方法-在这个问题上，我对此有很好的建议。但是，我仍然想知道一路上遇到的棘手的宏问题。

如果将集合作为文字传递，则此方法有效：

但是在这种情况下不起作用：

或者这个：

问题在于colls内部的文字表达式。这就是为什么宏domap在传递整数序列时起作用的原因，而在其他情况下则不起作用。注意'(nums)的实例：

我尝试了~，~@，'，let与var#等的各种组合。没有任何效果。尝试将其写为宏也许是一个错误，但是我仍然很好奇如何编写一个可变参宏，它需要像这样的复杂参数。

这是您的宏不起作用的原因：

'(~@colls)此表达式创建所有列的带引号的列表。例如如果将其传递给(range 3)，则该表达式将变为'((range 3))，因此文字参数将是您的coll之一，从而阻止对(range 3)的求值当然不是您想要的。

现在，如果您不在宏内引用(~@colls)，它们当然会变成像((range 3))这样的文字函数调用，这会使编译器在宏扩展时间后抛出(它将尝试评估((0 1 2)))。

您可以使用list来避免此问题：

但是，这里有一件事很糟糕：在宏内部，整个列表创建了两次。这是我们可以避免的方法：

coll并不是我们唯一需要防止对其进行多次评估的事情。如果用户将(fn [& args] ...)之类的内容作为f传递，则该lambda也将在每个步骤中进行编译。

现在正是这种情况，您应该问自己为什么要编写宏。本质上，您的宏必须确保所有参数均已评估，而之前未进行任何形式的转换。评估免费提供函数，因此让我们将其编写为函数：

给定您要实现的目标，请注意已经有一个函数可以解决该问题，dorun仅实现一个seq但不保留head。例如：

也会做到这一点。

现在有了dorun和map，您可以简单地使用comp组合它们以实现您的目标：