Напишите функцию (fullength x) считающую полное количество атомов (не равных nil) в списке x

(defun fullength(x)
(setq n 0)
(labels ((full (s m)
(cond ((not(atom (car s))) (full (car s) m))
((and (null (car s)) (not (null (cdr s)))) (full (car s) m))
(t (setq m (+ m 1))))
(full (cdr s ) m)))
(full x n))
(n)
)
Счетчик атомов n устанавливается в 0.
Создается локальная функция full . Данная функция проверяет список