задача на Lisp

[СветОК]

Задано количество членов ряда Фибоначчи. Найти их значения и значение их суммы при a0=0, a1=1 c помощью рекурсивной функции. вот....разобралась с первой частью т.е как найти их значения

(defun FibList (n lst) (cond ((= n 2) lst)
(t (FibList (- n 1) (cons (+ (car lst) (cadr lst)) lst)))))

а как же найти сумму? подскажете?

[netrino]

Можно воспользоваться функцией apply

(let ((sum (apply #'+ (FibList 10 '(0 1)))))
  ; do something with sum
  (print sum))

Если я правильно понял, как нужно вызывать Вашу функцию.