Ассоциативные списки и списки свойств - Lisp (229470)

Формулировка задачи:

задача:Исходный список содержит имена обьектов ,списки свойств которых содержат некоторую информацию. Определить для каждого обьекта количество пар < ключ - значение>.

(defun caunt (l)
   (cond ((null l) 0)
         (t ( + 1 (caunt (cdr l))))))
         
(defun key-znach(L)
    (setq L '(l1 l2 l3))
    (put l1 sidorov 2004)(put l1 kireev 1996)
    (put l2 myxacheva 1996)(put l2 polykov 2000) (put l2 varlamov 1945)
    (put l3 borovikov  2015)
    (cond ((null L) nil)
    (t (cons (count (eval (car L))) (key-znach (cdr L))))))

Выдает ошибку,выходит за пределы памяти(в чем ошибся?

Решение задачи: «Ассоциативные списки и списки свойств»

textual
                            Листинг программы 
                        

                            (DEFUN L2 (AL) (LENGTH (CDR AL)))
    (setq L '(l2 l3 l4))
    (put l2 sidorov 2004)(put l1 kireev 1996)
    (put l3 myxacheva 1996)(put l2 polykov 2000) (put l2 varlamov 1945)
    (put l4 borovikov  2015)
(defun key-znach(L)
    
    (cond ((null L) nil)
    (t (cons (l2 (car L)) (key-znach (cdr L))))))
 
CL-USER  > (key-znach l)
(3 1 1)
                        