r8185: convert programlisting to screen
[uffi.git] / doc / ref_declare.xml
index 1e40da6c8dc8150141028466a7863c61f543c79d..ddbd818170d927f4e3f2885a07f07c17bff76bdd 100644 (file)
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-type char-ptr '(* :char))
 ...
 (defun foo (ptr)
 (declare (type char-ptr ptr))
 ...
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>