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