X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=doc%2Fref_func_libr.xml;h=7a366dbfdb6372ce2635ad6aea8b82f65fa9e1ad;hb=e23ce13827d1948c2e46f2b36a4a22127615844a;hp=0e48d59fde91c7f4e790040115a5dea1d56f5e3b;hpb=e26a86e113f9139d1d4b009e74809faf51af166b;p=uffi.git

diff --git a/doc/ref_func_libr.xml b/doc/ref_func_libr.xml
index 0e48d59..7a366db 100644
--- 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>