LISP count alphabet

[irneb]

Or using a similar approach as Tharwat's in post #4:

ECL-0.9i % (setq count 0)
0
ECL-0.9i % (loop for item in '(1 3 6 "34" 5 "name") do (if (stringp item) (setq count (1+ count))))
NIL
ECL-0.9i % count
2

[irneb]

Sorry ... the OP didn't use strings, only symbols.

ECL-0.9i % (length (remove-if (lambda (a) (numberp a)) '(8 0 b 7 h u 6 d )))
4
ECL-0.9i % (setq count 0)
0
ECL-0.9i % (loop for item in '(8 0 b 7 h u 6 d ) do (if (not (numberp item)) (setq count (1+ count))))
NIL
ECL-0.9i % count
4