初めて一週間の初心者です。
XLISPでlistの中のatomの数を数えたいんです。
下のようにlistの中のatomだけを抜き出してリストにすることはできました。

(DEFUN F1(L)
(COND((NULL L) NIL)
((LISTP(CAR L))(F1(CDR L)))
(T (CONS (CAR L)(F1(CDR L))))
)
)

このコードを実行すると次のようになります。

(F1 '((A B) C D (E F) G))
(C D G)

後はこれをlengthで数えるだけだと思うのですがそのやり方が分かりません。
それとももしかしてSETQで変数を設定して
Tのところで値を1つずつ足していって数えるのでしょうか?
お分かりの方、どうか教えて下さい。