また同じ構文の関数で labels と言う物がある。
flet では定義した局所関数は同じflet内の他の局所関数では使用できないが、
labels では使用できるところが違う。

例.
CL-USER>(defun foo(x)
(labels
((sq (arg) (* arg arg))
(qtl (arg1) (* (sq arg1) (sq arg1))))
(qtl x)))
FOO
CL-USER>(foo 10)
10000