list
CL-USER> (list :id 1 :age 28 :name "张三")
(:ID 1 :AGE 28 :NAME "张三")
CL-USER> (defvar st1 (list :id 1 :age 28 :name "张三"))
ST1
CL-USER> st1
(:ID 1 :AGE 28 :NAME "张三")
CL-USER>
CL-USER> (getf st1 :name)
"张三"
CL-USER>
调用函数
CL-USER> (gcd 66 33)
33
CL-USER> (gcd 99 18)
9
CL-USER>