(defmacro make-add-method (method-name table-name)
  `(defmethod ,method-name ((self my-class) data)
     (let ((returned-data (generic-insert self data ,table-name)))
       (unless (check-error self)
	 (commit (database-handle self)))
       returned-data)))

(make-add-method 'add-company "company")
(make-add-method 'add-financial-diary "financialDiary")

(add-company my-object company-data)
(add-financial-diary my-object financial-data)