要素ってのが不明瞭だがこうか?
(defun mycount (l)
(apply #'+ (mapcar (lambda (x) (if (listp x) (mycount x) 1)) l)))