(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))))