List 如何从列表中的子列表中删除括号？

当仍在

ppl

中时，如何删除括号以使结果变为

(defun ppl (list)
  (loop for x in list
    collect (cons x '(ppl))))
(ppl '(1 2 3))
=> ((1 ppl) (2 ppl) (3 ppl))

我知道我的代码基本上创建了一个子列表。我们需要一些帮助来简化列表。也许如果我能以某种方式获得收集退货的列表？

使用：

（取消ppl（列表）
（列表中x的循环）
NCOC（列表x'ppl）））
（ppl’（1、2、3））
==>（1磅2磅3磅）

请注意，我将

（cons x'（ppl））

替换为

（list x'ppl））

，以避免重复使用

ncoc

可能变成的文本

（ppl）

。如果您坚持要在代码中添加内容（坏主意！），请使用

append

而不是

ncoc

使用：

（取消ppl（列表）
（列表中x的循环）
NCOC（列表x'ppl）））
（ppl’（1、2、3））
==>（1磅2磅3磅）

---

请注意，我将

（cons x'（ppl））

替换为

（list x'ppl））

，以避免重复使用

ncoc

可能变成的文本

（ppl）

。如果你坚持要在代码中添加括号（坏主意！），请使用

append

而不是

ncoc

这不是“删除括号”。括号只是列表的外部文本表示形式中的一种东西。该操作称为“展平”。它接受一个嵌套列表并返回一个带有平面列表的新列表，该列表包含原始列表的所有原子。括号只是列表的外部文本表示形式中的一种东西。该操作称为“展平”。它接受一个嵌套列表并返回一个带有平面列表的新列表，该平面列表包含原始列表的所有原子。

=> (1 ppl 2 ppl 3 ppl)