projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9329: * db-odbc/*.lisp: Add a layer of indirection to foreign-type
[clsql.git]
/
db-odbc
/
odbc-dbi.lisp
diff --git
a/db-odbc/odbc-dbi.lisp
b/db-odbc/odbc-dbi.lisp
index 0de8eddf4bd7bd58f27f845b664aeb6e9abbfea0..7b20556f0946de50d9b0e43ad940a0be2b796cd7 100644
(file)
--- a/
db-odbc/odbc-dbi.lisp
+++ b/
db-odbc/odbc-dbi.lisp
@@
-554,10
+554,10
@@
This makes the functions db-execute-command and db-query thread safe."
(ecase sql-type
((#.odbc::$SQL_CHAR #.odbc::$SQL_VARCHAR #.odbc::$SQL_LONGVARCHAR) :string)
((#.odbc::$SQL_NUMERIC #.odbc::$SQL_DECIMAL #.odbc::$SQL_BIGINT) :string) ; ??
(ecase sql-type
((#.odbc::$SQL_CHAR #.odbc::$SQL_VARCHAR #.odbc::$SQL_LONGVARCHAR) :string)
((#.odbc::$SQL_NUMERIC #.odbc::$SQL_DECIMAL #.odbc::$SQL_BIGINT) :string) ; ??
- (#.odbc::$SQL_INTEGER
:long
)
+ (#.odbc::$SQL_INTEGER
#.odbc::$ODBC-LONG-TYPE
)
(#.odbc::$SQL_SMALLINT :short)
(#.odbc::$SQL_SMALLINT :short)
- ((#.odbc::$SQL_FLOAT #.odbc::$SQL_DOUBLE)
:long
)
- (#.odbc::$SQL_REAL
:long
)
+ ((#.odbc::$SQL_FLOAT #.odbc::$SQL_DOUBLE)
#.odbc::$ODBC-LONG-TYPE
)
+ (#.odbc::$SQL_REAL
#.odbc::$ODBC-LONG-TYPE
)
(#.odbc::$SQL_DATE 'sql-c-date)
(#.odbc::$SQL_TIME 'sql-c-time)
(#.odbc::$SQL_TIMESTAMP 'sql-c-timestamp)
(#.odbc::$SQL_DATE 'sql-c-date)
(#.odbc::$SQL_TIME 'sql-c-time)
(#.odbc::$SQL_TIMESTAMP 'sql-c-timestamp)