(defun sommadispari (termini)
  (cond ((null termini) 0)
        ((oddp (car termini)) (+ (car termini)
                                 (sommadispari (cdr termini))))
        (t (sommadispari (cdr termini)))))

che, chiamata con un parametro attuale, da luogo ad esempio
alla sequenza:

(sommadipsari  '(23 34 7 9))

sommadipsari '(23 34 7 9)
+ 23 (sommadipsari '(34 7 9))
     (sommadispari '(7 9))
     (+ 7 (sommadispari '(9))
          (+ 9 (sommadispari '())
	       0
          9
     16
39 



o anche

(defun sommadispari (termini)
  (reduce #'+
          (map 'list
               #'(lambda (x)
                   (if (oddp x)
                       x
                       0))
               termini)))

dove map applica la funzione che le viene passata in input ('list in
questo caso) a ogni elemento restituitole dal secondo argomento e genera
una lista contenenti numeri dispari o nulli che viene poi ridotta
con la funzione somma (reduce #'+).