* 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
(defsetf nthcdr (n x) (y) `(progn (rplacd (nthcdr (1- ,n) ,x) ,y) ,y))そういえば定義されていないな。こんなかな。