沢山の回答ありがとうございます。

>>467
動きました。labelsや縦棒で区切るとか勉強になります。
括弧が一つ多いみたいなんで
(car (chikan '((A B C) A B C (A (B C))) ))
とすれば大丈夫ですね。
所でlabels使わなくても行けませんか？
(defun chikan(x) (if (atom x) (henkan x) (list (loop for y in x append (chikan y)))))

>>470
ヒントありがとうございます。
(defun chikan(x) (if (atom x) (henkan x) (list (apply #'concatenate 'list (mapcar #'chikan x )))))
(car (chikan '((A B C) A B C (A (B C))) ))

>>471
リストで受けてfirst,second,thirdでばらすイメージですかね。

--
carで受けるのは格好悪いですね。labelsとか使う場面でしょうか。