[求助]请教高手,帮我看看这段程序,如何获得列表数?

userzhl

命令: !AAA

 (("STANDARD" "txt" "") ("_SIMPLEX" "romans1.shx" "") ("_HZTCH"
"txt1.shx" "hztch.shx") ("COMP" "COMPLEX" "hztxt"))

列表里有4组数据,如何获得?(让a=4)

(setq a

yoyoho

指令: (SETQ AAA '(("STANDARD" "txt" "") ("_SIMPLEX" "romans1.shx" "") ("_HZTCH"
"txt1.shx" "hztch.shx") ("COMP" "COMPLEX" "hztxt")))

指令: (SETQ A (LENGTH AAA))
4