复制共同lisp的结构列表

Question

我有一个结构列表，我想写一个函数来改变结构中的某些插槽而不影响原始列表。我尝试使用复制列表，但它不够深入;插槽值也在原始列表中更改。我的问题是，是否有一个内置的函数可以实现我想要的？或者我应该自己写一个函数？谢谢。

编辑：

我去上写我自己的功能，有一个内置的一个会做这个有关系吗？

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

Answer 1

该函数预先定义的价值不大。

你的代码只是：

(mapcar #'copy-structure some-list)