Числа Фибоначи - итерация

Отражает идею динамического программирования (не совсем корректный термин) — оптимизации путём:

;; а - накапливающий параметр
;; b - последнее "обработанное" значение
(defun fib-iter (a b count)
  (if (= count 0)
       b
       (fib-iter (+ a b) a (- count 1))))

(defun fib2 (n)
  (fib-iter 1 0 n))