(defun hoge (l)
(length (delq nil (mapcar #'atom l))))
(hoge '(a b (c d) e))
=> 3