そうそう。初心者はそこで引っかかると思ったわけ。
よーするに car と cdr に分離したいわけだよね？
せっかく作った my-mapcar を利用してみてはどうでしょう。
↓こんなんでヒントになるかな？

(my-mapcar #'car '((1 2 3) (a b c) (x y z)))
=> (1 a x)
(my-mapcar #'cdr '((1 2 3) (a b c) (x y z)))
=> ((2 3) (b c) (y z))

# 皆さん再帰好きですね〜。do や loop は全然出てこないなぁ。