(setq x '(a b c))
(setf (cdddr x) (list 'd))