Hjälp med lisp

Hej ! Jag vill skriva en rekursiv funktion som summerar alla de element på en lista som är tal.

Jag har fått fram detta:

(defun räkna-siffror (n)
(cond
((endp n) 0 )
(t (numberp n) (+ (first n ) (räkna-siffror (rest n ))))))

När jag skapar en lista med endast siffror, så fungerar allting som det ska. Problemet är att programmet inte fungerar när jag skapar en list med både siffror och tal.
Men hur ska jag göra för att den ska "ignorera" alla bokstäver och istället räkna siffrorna ?

Skulle vara tacksam för hjälp..

Med denna lista blir det fel: (setq lista '( a 1 b 1 5 4 6 s h ) ).
Funktionen klarar inte att räkna ut siffrorna ur en lista när dem är blandade med bokstäver. Jag vill att den ska kunna räkna summan av talen, och ignorera bokstäverna.

(defun räkna-siffror (n)
(cond
((endp n) 0 )
((symbolp n) )
(t (numberp n)(+ (numberp (first n ) (räkna-siffror (rest n )))))))

Denna ovan fungerar inte heller.