質問です。

(define x '(a b c))
(set-cdr! (cddr x) (list 'd))
２つ目のリストは、なぜ (a b c d)なのでしょうか？
(cddr x) => (c) なのだから、２つ目のリストは(c d) になる
ように思うのですが！？