X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;fp=db-oracle%2Foracle-sql.lisp;h=f8f5836fab84ba29182f2aa6a0667191f3ad5c0b;hp=7272b1c2273890ecc2e34dd32b2ec381b3c4f8ae;hb=f90abf736b38b770d40fa6b65a48b553302b17a4;hpb=c5ecb63ab302383d9a95043c0b3e35c1a1b8918e

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 7272b1c..f8f5836 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -514,8 +514,7 @@ the length of that format.")
                  (oci-stmt-prepare (deref-vp stmthp)
                                    (deref-vp errhp)
                                    c-stmt-string
-                                   (uffi:foreign-string-length length
-                                                               sql-stmt-string)
+                                   (uffi:foreign-string-length c--stmt-string)
                                    +oci-ntv-syntax+ +oci-default+ :database db)
                  (oci-attr-get (deref-vp stmthp)
                                +oci-htype-stmt+