(define-syntax set-jvalue! (syntax-rules (boolean byte char short int long float double object) ((_ boolean jvalue-array index value) (set-boolean-jvalue! jvalue-array index value)) ((_ byte jvalue-array index value) (set-byte-jvalue! jvalue-array index value)) ((_ char jvalue-array index value) (set-char-jvalue! jvalue-array index value)) ((_ short jvalue-array index value) (set-short-jvalue! jvalue-array index value)) ((_ int jvalue-array index value) (set-int-jvalue! jvalue-array index value)) ((_ long jvalue-array index value) (set-long-jvalue! jvalue-array index value)) ((_ float jvalue-array index value) (set-flaot-jvalue! jvalue-array index value)) ((_ double jvalue-array index value) (set-double-jvalue! jvalue-array index value)) ((_ object jvalue-array index value) (set-object-jvalue! jvalue-array index value))))