projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2f185bf
)
r9428: add note about server version
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 22 May 2004 15:23:51 +0000
(15:23 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 22 May 2004 15:23:51 +0000
(15:23 +0000)
db-oracle/oracle-sql.lisp
patch
|
blob
|
history
diff --git
a/db-oracle/oracle-sql.lisp
b/db-oracle/oracle-sql.lisp
index 6adf3b580ecdc59e1aabc07a1a678c9803289914..d5fdb8797d3f529ff8ebca8de76ea0a06e125ffc 100644
(file)
--- 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)