r8185: convert programlisting to screen

[uffi.git] / doc / ref_func_libr.xml

diff --git a/doc/ref_func_libr.xml b/doc/ref_func_libr.xml
index 0e48d59fde91c7f4e790040115a5dea1d56f5e3b..7a366dbfdb6372ce2635ad6aea8b82f65fa9e1ad 100644 (file)
--- a/doc/ref_func_libr.xml
+++ b/doc/ref_func_libr.xml
@@ -61,12 +61,12 @@ foreign function. If <constant>:void</constant> indicates module does not return
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (def-function "gethostname" 
   ((name (* :unsigned-char))
    (len :int))
   :returning :int)
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -150,12 +150,12 @@ a session. A library can be reloaded by using the <symbol>:force-load</symbol> k
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
   (load-foreign-library #p"/usr/lib/libmysqlclient.so" 
                         :module "mysql" 
                         :supporting-libraries '("c"))
     => T
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -234,13 +234,13 @@ the path of the first found file.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (find-foreign-library '("libmysqlclient" "libmysql")
     '("/opt/mysql/lib/mysql/" "/usr/local/lib/" "/usr/lib/" "/mysql/lib/opt/")
     :types '("so" "dll")
     :drive-letters '("C" "D" "E"))
 => #P"D:\\mysql\\lib\\opt\\libmysql.dll"
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>