Method: ((SETF FETCH-TAL-VALUE) T T STANDARD-OBJECT)

Source

(defmethod (setf fetch-tal-value) (value name (obj standard-object))
  (if (slot-exists-p obj name)
      (setf (slot-value obj name) value)
      (error 'unfound-tal-variable :variable-name value :environment obj)))