null xl)

(defun sum-el ( xl)
(cond (( null xl) 0)
(xl (+ (car xl)
(sum-el (cdr xl) )
) ) ) )
(sum-el '(1 2 3 4 ) ) ; = 10

Содержание раздела

---