здравствуйте
есть такой код:

 

(setq a'(1 2 3 4 5))

 

(setq b'(5 6 7 8 9 10))

 

(defun prima(lst lst1)

(cond ((eql 0 (length lst)) (length lst))

(T (primadop lst lst1))))

 

(defun primadop(lst lst1)

(cond ((eql 0 (length lst1)) (prima (cdr lst)))

(T (primadop lst (cdr lst1)))))

и при наборе

(prima a b)

мне выдает ошибку с текстом:

Error: PRIMA got 1 arg, wanted 2 args

---

---

а если я 3 параметра буду передавать - скажет что я ей передаю 3 параметра, а надо 2. Подскажите пожалуйста в чем может быть проблема?