Here is an example that should both methods being used for
maximum cross-implementation optimization:
<programlisting>
+(uffi:def-type the-struct-type-def the-struct-type)
(let ((a-foreign-struct (allocate-foreign-object 'the-struct-type)))
- (uffi-declare 'the-struct-type a-foreign-struct)
+ (declare 'the-struct-type-def a-foreign-struct)
(get-slot-value a-foreign-struct 'the-struct-type 'field-name))
</programlisting>
</para>