Hello, for exemple
mapcar method
(defun Acum:Sum (l / r)
(setq r (car l))
(mapcar '(lambda (x) (setq r (+ x r))) (cdr l))
)
recursive method
(defun Acum:Sum (l / rec)
(defun rec (x l)
(if l
(cons (setq x (+ x (car l))) (rec x (cdr l)))
)
)
(rec (car l) (cdr l))
)