* (flet ((add (a b) (+ a b))) (add 3 7)) 10 * (let ((ja 5) (jb 1)) (* ja jb)) 5 * (flet ((add (a b) (+ a b)) (sub (a b) (- a b))) (sub 12 (add 3 7))) 2
let定义局部变量 flet定义局部函数
* (flet ((add (a b) (+ a b))) (add 3 7)) 10 * (let ((ja 5) (jb 1)) (* ja jb)) 5 * (flet ((add (a b) (+ a b)) (sub (a b) (- a b))) (sub 12 (add 3 7))) 2
let定义局部变量 flet定义局部函数