function - Common Lisp - 使用一个函数作为另一个函数的输入

Question

假设我有一个函数，它接受一个列表并做一些事情:

(defun foo(aList)
   (loop for element in aList ...))

但如果列表是嵌套的，我想在循环执行之前先将其展平，所以我想使用另一个函数 (defun flatten(aList)) 展平任何列表:

(defun foo(flatten(aList))
   (loop for element in aList ...))

Lisp 不喜欢这样。还有另一种直接的解决方法吗？

Answer 1

这是一种方法:

(defun foo (alist)
  (loop for element in (flatten alist) ...)