Gibt es eine einstellbare nthcdr-Implementierung?

Question

Ich benutze clisp und ich frage mich, ob es eine Bibliothek mit einer einstellbaren Version von nthcdr gibt, die ich verwenden kann.

Answer 1

Sie können um es hacken mit:

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

Oder Ihre eigene setf für sie definieren:

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

Ich weiß nicht, warum nthcdr definiert keine setf haben. Sogar Alexandria scheint setf für den letzten, aber nicht nthcdr zu definieren.

PS. Ich würde behandeln, wenn ich einen nthcdr als einen schlechten Geruch in Ihrem Code festlegen möchte.

Answer 2

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

funktioniert nicht, wenn n 0 ist aber, könnte man es funktioniert, wenn LIST ein Symbol ist, zu überprüfen, ob N Null entweder auf macroexpansion Zeit, aber dann funktioniert es nur, wenn N eine Zahl ist, oder einschließlich der Überprüfung im erweiterten Code.