projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Optimize odbc::%cstring-to-vector on sbcl if cffi isn't loaded.
[clsql.git]
/
db-odbc
/
odbc-dbi.lisp
diff --git
a/db-odbc/odbc-dbi.lisp
b/db-odbc/odbc-dbi.lisp
index 5c57c2e7afed17ee53df894ac4865195fda893ff..3abce4aa8015e0a564574cb8381b22d4d19e00b7 100644
(file)
--- a/
db-odbc/odbc-dbi.lisp
+++ b/
db-odbc/odbc-dbi.lisp
@@
-465,6
+465,11
@@
This makes the functions db-execute-command and db-query thread safe."
(#.odbc::$SQL_C_STINYINT :short)
(#.odbc::$SQL_C_SBIGINT #.odbc::$ODBC-BIG-TYPE)
(#.odbc::$SQL_C_TYPE_TIMESTAMP :time)
(#.odbc::$SQL_C_STINYINT :short)
(#.odbc::$SQL_C_SBIGINT #.odbc::$ODBC-BIG-TYPE)
(#.odbc::$SQL_C_TYPE_TIMESTAMP :time)
+ (#.odbc::$SQL_C_CHAR ;; TODO: Read this as rational instead of double
+ (or (case (aref column-sql-types i)
+ (#.odbc::$SQL_NUMERIC :double))
+ T))
+
(t t)))
(t t)))))
query)
(t t)))
(t t)))))
query)