Function 关于commonlisp中的函数ncoc

Function 关于commonlisp中的函数ncoc,function,common-lisp,stack-overflow,circular-list,Function,Common Lisp,Stack Overflow,Circular List,通过输入以下代码,我得到了一个真正的堆栈溢出 (setf l1 (list 1)) (setf l2 (list 2)) (nconc l1 l2) (nconc l2 l1) 哎呀 这是一个错误吗?不是这样的。打印一份永无止境的清单永远都不是一件好事 将*print circle*设置为T,以查看列表的结构 这不仅仅是一个bug,更像是#1=(foo.#1#)将*打印长度*设置为5。你想创建一个循环列表,不是吗?@Barmar哦,我知道。NCOC将在操作后返回第一个列表。NCOC没有溢

通过输入以下代码,我得到了一个真正的堆栈溢出

(setf l1 (list 1))

(setf l2 (list 2))

(nconc l1 l2)

(nconc l2 l1)
哎呀


这是一个错误吗?

不是这样的。打印一份永无止境的清单永远都不是一件好事

*print circle*
设置为
T
,以查看列表的结构


这不仅仅是一个bug,更像是
#1=(foo.#1#)

*打印长度*
设置为
5
。你想创建一个循环列表,不是吗?@Barmar哦,我知道。NCOC将在操作后返回第一个列表。NCOC没有溢出堆栈,REPL是在尝试打印值时。或设置为
t