Plaster

(defmacro define-validate-payment-intent-slot-macro (intention-class) `(defmacro ,(intern (format nil "~:@(~A-~A~)" "validate-payment-intent%slot" intention-class)) ((processor-arg intention-arg accessor-arg client-arg) slot-value &body body) `(defmethod validate-payment-intent-slot (,processor-arg (,intention-arg ,,intention-class) ,accessor-arg ,client-arg) (let ((,slot-value (funcall ,accessor-arg ,intention-arg))) (locally ,@body))))) ;;(define-validate-payment-intent-slot-macro payment-intention%single-payment-digital-service) (defmacro validate-payment-intent%slot-payment-intention%single-payment-digital-service ((processor-arg intention-arg accessor-arg client-arg) slot-value &body body) `(defmethod validate-payment-intent-slot (,processor-arg (,intention-arg ,payment-intention%single-payment-digital-service) ,accessor-arg ,client-arg) (let ((,slot-value (funcall ,accessor-arg ,intention-arg))) (locally ,@body))))