Source of Nothingness - xyzzy lisp : (setf nthcdr)

* xyzzy lisp : (setf nthcdr)

(defsetf nthcdr (n x) (y) `(progn (rplacd (nthcdr (1- ,n) ,x) ,y) ,y))
そういえば定義されていないな。こんなかな。
n=0 でダメだ。

update : 2008-05-13 (Tue) 13:19:54