我没找到删除某个list的某个位置的函数,就自己写了一个,但是删除第一个元素遇到了问题:
(defun delete-nth (index seq)
"Delete the INDEX th element of SEQ.
Return result sequence, SEQ is modified."
(if (equal index 0)
(progn
(setcar seq (car (cdr seq)))
(setcdr seq (cdr (cdr seq))))
(setcdr (nthcdr (1- index) seq) (nthcdr (1+ index) seq))))
有没有什么办法写的简洁一点……或者有什么内置函数能解决?