From ca8b8ab72493dfe86309bf489d4a7ccf897adf08 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 22 May 2004 15:23:51 +0000 Subject: [PATCH] r9428: add note about server version --- db-oracle/oracle-sql.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp index 6adf3b5..d5fdb87 100644 --- a/db-oracle/oracle-sql.lisp +++ b/db-oracle/oracle-sql.lisp @@ -778,6 +778,8 @@ the length of that format.") ;; oci-handle-alloc((dvoid *)encvhp, (dvoid **)&stmthp, OCI_HTYPE_STMT, 0, 0); ;;#+nil ) + ;; Actually, oci-server-version returns the client version, not the server versions + ;; will use "SELECT VERSION FROM V$INSTANCE" to get actual server version. (let (db server-version) (uffi:with-foreign-object (buf '(:array :unsigned-char #.+errbuf-len+)) (oci-server-version (deref-vp svchp) -- 2.34.1