Использование пользовательской функции добытчика в инкубаторе с SETF

Question

Я думаю, что это видно из этого кода, что я пытается делать, то есть изменить 'blue к 'purple:

CL-USER> (defparameter myassoc '((color red blue) (shape circle square))) 
MYASSOC 
CL-USER> myassoc 
((COLOR RED BLUE) (SHAPE CIRCLE SQUARE)) 
CL-USER> (defun getsecondof (assoc) (second (rest (assoc assoc myassoc)))) 
GETSECONDOF 
CL-USER> (getsecondof 'color) 
BLUE 
CL-USER> (setf (getsecondof 'color) 'purple) 
; in: SETF (GETSECONDOF 'COLOR) 
;  (FUNCALL #'(SETF GETSECONDOF) #:NEW954 'COLOR) 
; ==> 
; (SB-C::%FUNCALL #'(SETF GETSECONDOF) #:NEW954 'COLOR) 
; 
; caught STYLE-WARNING: 
; undefined function: (SETF GETSECONDOF) 
; 

Теперь, если вместо того, чтобы использовать моя собственная функция getsecondof с setf Я вместо этого передаю встроенное выражение CL, чтобы извлечь местоположение, которое я хочу изменить, оно работает.

Можно ли использовать пользовательские геттеры как сеттеры с setf?

Answer 1

Вы должны определить setf для него:

(defun (setf getsecondof) (assoc value) 
    (setf (caddr (assoc assoc myassoc)) value)) ; (caddr x) == (second (rest x)) 

(setf (getsecondof 'color) 'purple) ; ==> PURPLE 
(getsecondof 'color) ; ==> PURPLE 

Answer 2

У вас есть функция setf.

http://www.lispworks.com/documentation/HyperSpec/Body/m_defset.htm#defsetf