LISP - найти ошибку

[DDemon-skorosti]

Доброго времени суток
Вопрос в теме указн.


(defun prim(sost)
(mapcan #'(lambda (pravilo) (if (eq sost (car pravilo)) (list pravilo) nil))
*produksii*))

(defun mar(nas kon por)
(poisk kon (prim nas) (list nas) por)))

(defun prim(sost)
(mapcan #'(lambda (pravilo) (if (eq sost (car pravilo)) (list pravilo) nil))
*produksii*))

(defun poisk(kon plan resh por)
(cond ((null plan) nil)
((eq kon (second (car plan)))
(reverse (cons kon resh)))
((member (second (car plan)) resh)
(poisk(kon (cdr plan) resh por))
((poisk(kon (funcall por plan)
(cons (second (car plan)) resh) por))
(t (poisk(kon (cdr plan) resh por)))))))

(defun v-glub(plan)
(append (prim(second (car plan)))
(cdr plan)))

(defun v-shir(plan)
(append (cdr plan)
(prim (second (car plan)))))


(defun nailush(plan)
(sort (append (prim (car plan)) (cdr plan)) #'kriteri))
(defun kriteri (x y)
(>= (get (second x) 'shirota)
(get (second y) 'shirota)))
(setf (get 'c 'shirota) 4)
(setf (get 'e 'shirota) 1)
(setf (get 'n 'shirota) 2)
(setf (get 'l 'shirota) 3)
(setf (get 'b 'shirota) 5)
(defun nailush(plan)
(sort (append (prim (car plan))
(cdr plan))
#'kriteri 'x 'y))