common-lispでは、リスト内の要素をインプレースに挿入するにはどうしたらいいですか？

Question

つの質問：

1.Iは（、任意の位置が、リストの先頭にある理由で、質問2を参照）関数はインプレースリスト内の要素を挿入するように：

CL> (defun insert-in-place (the-list after-position new-element) ....) => ... 
CL> (setf testy-list (list 'a 'b 'c 'd)) => ... 
CL> testy-list => ('A 'B 'C 'D) 
CL> (insert-in-place testy-list 1 'BOOOO) => ... 
CL> testy-list => ('A 'B 'BOOOO 'C 'D) 

2. argsに値が渡されるため、リストの最初のコンスセルが渡されるので、関数を介してリストの先頭に要素を挿入することは不可能ですそれはコピーであるため、その車を変更するだけで元のコピーではなく、次のコンスセルが共有され、その場で変更が可能ですが、コピーカーが変更されます。私は正しいですか？

Answer 1

1）はここにある：コンスセルの

(defun insert-after (lst index newelt) 
    (push newelt (cdr (nthcdr index lst))) 
    lst) 
(insert-after '(a c d) 0 'b) => (A B C D) 

2）破壊的な変更は：

(setf testy-list '(a bar)) 
(defun modify (list) 
    (setf (first list) 'foo)) 
(modify testy-list) 
testy-list => (FOO BAR) 

これはFOO」に最初のコンスセルの車を設定します。

Answer 2

これは私のプロジェクトで作成したもので、インデックス0を扱い、indexがlistの長さより大きい場合、新しいアイテムはリストの最後に追加されます。新しいリストが作成されるので、それがあなたには当てはまらない可能性があることに注意してください。私はそれが誰かにとって有用であることを望むことを含める。

(defun list-insert-at (lst index new-value) 
    (let ((retval nil)) 
    (loop for i from 0 to (- (length lst) 1) do 
     (when (= i index) 
     (push new-value retval)) 
     (push (nth i lst) retval)) 
    (when (>= index (length lst)) 
     (push new-value retval)) 
    (nreverse retval))) 

CL-USER> test 
(1 2 3 4 5) 
CL-USER> (list-insert-at test 5 'a) 
(1 2 3 4 5 A) 
CL-USER> (list-insert-at test 0 'a) 
(A 1 2 3 4 5)