common-lisp 递归模板1单条件单尾递归

示例

(defun fn (x)
  (cond (test-condition the-value)
        (t (fn reduced-argument-x))))