(define-ffi-union NAME &rest SLOT...). Like define-ffi-struct, but defines a
union.
(define-ffi-union test-union
(cval :type :uchar)
(ival :type :int))
(define-ffi-function test-get-union "test_get_union"
test-union nil test.so)
(let ((object (test-get-union)))
(list (test-union-ival object)
(test-union-cval object))) ; => (-1 25)