設定可能なnthcdr実装が存在しますか？

Question

私はclispを使用していますが、使用できるnthcdrの設定可能なバージョンのライブラリがあるかどうか疑問です。

Answer 1

あなたはとその周りにハックすることができます：nthcdrは、定義のsetfを持っていない理由を私は知らない

;; !!warning!! only an example, lots of nasty edge cases 
(defsetf nthcdr (n lst) (new-val) 
    `(setf (cdr (nthcdr (1- ,n) ,lst)) ,new-val)) 

：

(let ((lst (list 1 2 3 4)) 
     (n 2)) 
    (setf (cdr (nthcdr (1- n) lst)) '(5 6 7)) 
    l) 
> (1 2 5 6 7) 

それとものためのあなた自身のsetfを定義します。 Alexandriaでもsetfは最後には定義されていますが、nthcdrでは定義されていないようです。

PS。私はあなたのコードで悪い匂いとしてnthcdrをsetfしたいと思う扱うだろう。

Answer 2

(defsetf my-nthcdr (n list) (store) 
    (let ((tmp (gensym))) 
    `(let ((,tmp (nthcdr (1- ,n) ,list))) 
     (rplacd ,tmp ,store) 
     (cdr ,tmp))))

動作しませんnはいえ0でLISTは、シンボルであるとき、あなたはそれを動作させることができ、Nは、マクロ展開時にゼロのどちらかであるが、Nが数値であるならば、それだけで動作するかどうかのチェック、または展開されたコードのチェックを含む。