X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fref_primitive.xml;h=d9c3fda455bc44ca4473c423fc5ae04f9092c3c4;hb=dc12f6625ed6c85ad380525d01c0726100bf7a3d;hp=01b1c953b297b1312888f4f07c15385843d1af2e;hpb=466148daa2e13a529e7338aeaf83cdc49c47ddbb;p=uffi.git
diff --git a/doc/ref_primitive.xml b/doc/ref_primitive.xml
index 01b1c95..d9c3fda 100644
--- a/doc/ref_primitive.xml
+++ b/doc/ref_primitive.xml
@@ -1,7 +1,7 @@
-
+
+
%myents;
]>
@@ -126,10 +126,10 @@
Examples
-
+
(def-constant pi2 (* 2 pi))
(def-constant exported-pi2 (* 2 pi) :export t)
-
+
Side Effects
@@ -185,11 +185,11 @@
Examples
-
+
(def-foreign-type my-generic-pointer :pointer-void)
(def-foreign-type a-double-float :double-float)
(def-foreign-type char-ptr (* :char))
-
+
Side Effects
@@ -253,14 +253,14 @@
Examples
-
+
(def-array-pointer ca :unsigned-char)
(let ((fs (convert-to-foreign-string "ab")))
(values (null-char-p (deref-array fs 'ca 0))
(null-char-p (deref-array fs 'ca 2))))
=> &nil;
&t;
-
+
Side Effects