level 1
(defvar a '(1 2 3))
(defvar b '(4 5 6))
(setf (car a) b)
(setf (car b) a)
这个是错误的，我知道，就是怎么能实现类似这样的环形结构？只能用结构体吗？
2015年01月26日 07点01分
1
level 1
知道了，要开启*print-circle*就可以了
(setf *print-circle* t)
2015年01月28日 01点01分
3
赋值本身没有错误，是返回结果值的时候无限循环出错的，用progn返回nil的话赋值可以正常进行
2015年01月28日 01点01分
哦，涨姿势了~~~哈哈，谢谢。
2015年01月28日 10点01分