X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-oracle%2Foracle-api.lisp;h=96b8e168cd80a746235516cca884a43903f683e8;hp=94b45a808d31b3b5c54022cea8566cb77ed63465;hb=8e4ed03c227c7476acf9888d94fa6d1426989076;hpb=a3112fd970a6f59efae544e9d939a50f1c1f7b23

diff --git a/db-oracle/oracle-api.lisp b/db-oracle/oracle-api.lisp
index 94b45a8..96b8e16 100644
--- a/db-oracle/oracle-api.lisp
+++ b/db-oracle/oracle-api.lisp
@@ -256,17 +256,17 @@
 
 (def-oci-routine ("OCIDefineByPos" oci-define-by-pos)
     :int
-  (p0      (* :void))
-  (p1      (* :void))
-  (p2      (* :void))
-  (p3      :unsigned-long)
-  (p4      (* :void))
-  (p5      :unsigned-long)
-  (p6      :unsigned-short)         
-  (p7      (* :void))
-  (p8      (* :void))          
-  (p9      (* :void))          
-  (p10     :unsigned-long))
+  (stmtp      (* :void))
+  (defnpp     (* (* :void)))
+  (errhp      (* :void))
+  (position      :unsigned-long)
+  (valuep      (* :void))
+  (value_sz      :long)
+  (dty      :unsigned-short)         
+  (indp      (* :void))
+  (rlenp      (* :unsigned-short))          
+  (rcodep      (* :unsigned-short))          
+  (mode     :unsigned-long))
 
 (def-oci-routine ("OCIStmtFetch" oci-stmt-fetch)
     :int