正在复制通用lisp中的结构列表

Question

我有一个结构列表，我想写一个函数，在不影响原始列表的情况下改变结构中的一些槽。我尝试使用copy- list，但它不够深入；插槽的值在原始列表中也被改变了。我的问题是，有没有一个内置的函数可以做我想做的事情，或者我应该自己写一个？谢谢。

编辑：

我继续写了我自己的函数，有没有内置的函数可以做到这一点？

(defun deep-copy (li)
    (if (null li)
        nil
        (cons (copy-structure (car li)) (deep-copy (rest li)))))

Answer 1

预定义该函数没有什么价值。

你的代码只是：

(mapcar #'copy-structure some-list)