определения пользовательской SEtF для класса в сюсюкать

Question

Пусть у меня есть класс с именем плата:

(defclass board() 
((blocker :accessor blocker :initarg :blocker :initform 0)) 

Согласно этому book я могу определить пользовательский SETF для блокатора по:

(defmethod (setf blocker) (new-blocker (b board)) 
    (setf (slot-value b 'blocker) new-blocker)) 

Однако, сталь банка common lisp будет говорить, что функция не определена, хотя я ее оценил. Кто-нибудь знает, что здесь не так?

Answer 1

Это выглядит правильно. Обратите внимание, что вы переопределяете уже существующий метод setf, который вы создали, указав :accessor blocker. SBCL предоставит вам style-warning.

Ваша ошибка в другом месте. Может быть, вы в другом пакете? Попробуйте показать шаги, которые вы предприняли в своей среде разработки, для компиляции и загрузки этих форм и попыток запуска этого вызова метода.

Answer 2

Перед определением любых методов необходимо объявить общую функцию.

(defgeneric (setf blocker) (new-blocker board)) 

См. Главу this в Практическом Общем Лиспе для примера.