-(def-callback closure-callback-marshal
- (void (gclosure system-area-pointer) (return-value system-area-pointer)
- (n-params unsigned-int) (param-values system-area-pointer)
- (invocation-hint system-area-pointer) (callback-id unsigned-int))
+(def-callback closure-callback-marshal (c-call:void
+ (gclosure system-area-pointer)
+ (return-value system-area-pointer)
+ (n-params c-call:unsigned-int)
+ (param-values system-area-pointer)
+ (invocation-hint system-area-pointer)
+ (callback-id c-call:unsigned-int))