lisp-局部变量和局部函数

* (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定义局部函数