- (+g-type-invalid+ (error "Invalid type (~A)" type))
- (+g-type-void+ nil)
- (+g-type-char+ (g-value-set-char gvalue value))
- (+g-type-uchar+ (g-value-set-uchar gvalue value))
- (+g-type-boolean+ (g-value-set-boolean gvalue value))
- (+g-type-int+ (g-value-set-int gvalue value))
- (+g-type-uint+ (g-value-set-uint gvalue value))
- (+g-type-long+ (g-value-set-long gvalue value))
- (+g-type-ulong+ (g-value-set-ulong gvalue value))
- (+g-type-int64+ (g-value-set-int64 gvalue value))
- (+g-type-uint64+ (g-value-set-uint64 gvalue value))
- (+g-type-enum+ (set-gvalue-enum gvalue value))
- (+g-type-flags+ (set-gvalue-flags gvalue value))
- (+g-type-float+ (unless (realp value) (error "~A is not a real number" value)) (g-value-set-float gvalue (coerce value 'single-float)))
- (+g-type-double+ (unless (realp value) (error "~A is not a real number" value)) (g-value-set-double gvalue (coerce value 'double-float)))
- (+g-type-string+ (g-value-set-string gvalue value))
+ ((gtype +g-type-invalid+) (error "Invalid type (~A)" type))
+ ((gtype +g-type-void+) nil)
+ ((gtype +g-type-char+) (g-value-set-char gvalue value))
+ ((gtype +g-type-uchar+) (g-value-set-uchar gvalue value))
+ ((gtype +g-type-boolean+) (g-value-set-boolean gvalue value))
+ ((gtype +g-type-int+) (g-value-set-int gvalue value))
+ ((gtype +g-type-uint+) (g-value-set-uint gvalue value))
+ ((gtype +g-type-long+) (g-value-set-long gvalue value))
+ ((gtype +g-type-ulong+) (g-value-set-ulong gvalue value))
+ ((gtype +g-type-int64+) (g-value-set-int64 gvalue value))
+ ((gtype +g-type-uint64+) (g-value-set-uint64 gvalue value))
+ ((gtype +g-type-enum+) (set-gvalue-enum gvalue value))
+ ((gtype +g-type-flags+) (set-gvalue-flags gvalue value))
+ ((gtype +g-type-float+) (unless (realp value) (error "~A is not a real number" value)) (g-value-set-float gvalue (coerce value 'single-float)))
+ ((gtype +g-type-double+) (unless (realp value) (error "~A is not a real number" value)) (g-value-set-double gvalue (coerce value 'double-float)))
+ ((gtype +g-type-string+) (g-value-set-string gvalue value))