projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10841: 16 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
db-odbc
/
odbc-api.lisp
diff --git
a/db-odbc/odbc-api.lisp
b/db-odbc/odbc-api.lisp
index 3b1beb0f167accde0c7917f45e51359dfa03fe48..0dcefa4090491a558299e624ca9586389fd7d2d7 100644
(file)
--- a/
db-odbc/odbc-api.lisp
+++ b/
db-odbc/odbc-api.lisp
@@
-164,7
+164,7
@@
as possible second argument) to the desired representation of date/time/timestam
(defun %new-db-connection-handle (henv)
(with-foreign-object (phdbc 'sql-handle)
(defun %new-db-connection-handle (henv)
(with-foreign-object (phdbc 'sql-handle)
- (setf (deref-pointer phdbc sql-handle) +null-handle-ptr+)
+ (setf (deref-pointer phdbc
'
sql-handle) +null-handle-ptr+)
(with-error-handling
(:henv henv)
(SQLAllocHandle $SQL_HANDLE_DBC henv phdbc)
(with-error-handling
(:henv henv)
(SQLAllocHandle $SQL_HANDLE_DBC henv phdbc)
@@
-648,7
+648,6
@@
as possible second argument) to the desired representation of date/time/timestam
(#.$SQL_INTEGER (get-cast-int data-ptr))
(#.$SQL_BIGINT (read-from-string
(get-cast-foreign-string data-ptr)))
(#.$SQL_INTEGER (get-cast-int data-ptr))
(#.$SQL_BIGINT (read-from-string
(get-cast-foreign-string data-ptr)))
- (#.$SQL_TINYINT (get-cast-byte data-ptr))
(#.$SQL_DECIMAL
(let ((*read-base* 10))
(read-from-string (get-cast-foreign-string data-ptr))))
(#.$SQL_DECIMAL
(let ((*read-base* 10))
(read-from-string (get-cast-foreign-string data-ptr))))