common lispでのBMI計算コード。私新しい言語勉強したらとりあえずこれ書くんです。

gistfile1.lisp

(defun calc_bmi (height weight)
    (float
        (flet (
                (twice (number)
                    (* number number))
                (divid-100(number)
                    (/ number 100))
            )
            (/
                weight
                (twice
                    (divid-100 height))
            )
        )
    )
)