[問2] を解いてみますた。
(defun q2-1 (lst)
(if (null lst)
0
(+ (car lst) (q2-1 (cdr lst)))))

(defun q2-2 (lst)
(if (null lst)
0
(+ (* (car lst) (car lst)) (q2-2 (cdr lst)))))