lisp에서 정의되지 않은 함수

Question

lisp 함수를 작성 중이며 함수에서 x 값을 반환하려고 할 때 EVAL - 정의되지 않은 함수 x가 계속 표시됩니다.

(defun p+ (x y) 
    (recurcollect (gluelist x y) '())) 

(defun isinlist (x y) 
    (if (car y) 
     (if (equal (cdr x) (cdar y)) 
      t 
      (if (cdr y) 
       (isinlist(x (cdr y))) 
       NIL)) 
     NIL)) 

(defun collectvalue (x y) ;takes an expression and a list and returns the sum of all like expressions from the list 
    (if (equal x NIL) 
     (print '(x is NIL)) 
     (if (equal (cdr x) (cdar y)) 
      (if (cdr y) 
       (collectvalue (list (+ (car x) (caar y)) (cdr x)) (cdr y)) 
       (list (+ (car x) (caar y)) (cdr x))) 
     (if (cdr y) 
      (collectvalue x (cdr y)) 
      x)))) 

(defun recurcollect (x y) ;returns a flat list of collected expressions 
    (if (isinlist (car x) y) 
     (recurcollect (cdr x) y) 
     (if (cdr x) 
      (recurcollect x (cons y (collectvalue (car x) (cdr x)))) 
      (cons y (car x))))) 

(defun gluelist (x y) 
    (if (cdr x) 
     (cons (car x) (gluelist (cdr x) y)) 
     (cons (car x) y))) 

(print (p+ '(2 0 1) '(4 0 1))) ;(6 0 1) 

나는 오류가 함수의 끝에서 X에 의해 발생 생각하지만 난 왜, 지금까지의 내 브래킷이 올바르게 짝 내가 볼 수 없습니다 말할 수있는 이유는 평가하려고 볼 수 없습니다 x를 함수로 사용합니다.

Answer 1

문제는 isinlist이며 이는 재귀 적으로 (isinlist(x (cdr y)))이라고합니다. (x ...)은 함수 x의 함수 호출로 해석됩니다. 아마도 (isinlist x (cdr y))이 필요합니다.

덧붙여 isinlist을 member (:key #'cdr :test #'equal)으로 바꿀 수 있습니다.