projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9336: 12 May 2004 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 66c9936b041193327782a1bc31f0f9ffcb8700e0..c5cca32d82f9496cbb755cadc97d21d77fb96dda 100644
(file)
--- a/
db-odbc/odbc-api.lisp
+++ b/
db-odbc/odbc-api.lisp
@@
-27,8
+27,8
@@
May be locally bound to something else if a certain type is necessary.")
(defvar *time-conversion-function*
(lambda (universal-time &optional fraction)
(declare (ignore fraction))
(defvar *time-conversion-function*
(lambda (universal-time &optional fraction)
(declare (ignore fraction))
- (clsql-
base
:format-time
- nil (clsql-
base
:utime->time universal-time)
+ (clsql-
sys
:format-time
+ nil (clsql-
sys
:utime->time universal-time)
:format :iso)
#+ignore
universal-time)
:format :iso)
#+ignore
universal-time)
@@
-113,11
+113,11
@@
as possible second argument) to the desired representation of date/time/timestam
(progn ,result-code ,@body))
(#.$SQL_INVALID_HANDLE
(error
(progn ,result-code ,@body))
(#.$SQL_INVALID_HANDLE
(error
- 'clsql-
base
:clsql-odbc-error
+ 'clsql-
sys
:clsql-odbc-error
:odbc-message "Invalid handle"))
(#.$SQL_STILL_EXECUTING
(error
:odbc-message "Invalid handle"))
(#.$SQL_STILL_EXECUTING
(error
- 'clsql-
base
:clsql-odbc-error
+ 'clsql-
sys
:clsql-odbc-error
:odbc-message "Still executing"))
(#.$SQL_ERROR
(multiple-value-bind (error-message sql-state)
:odbc-message "Still executing"))
(#.$SQL_ERROR
(multiple-value-bind (error-message sql-state)
@@
-125,7
+125,7
@@
as possible second argument) to the desired representation of date/time/timestam
(or ,hdbc +null-handle-ptr+)
(or ,hstmt +null-handle-ptr+))
(error
(or ,hdbc +null-handle-ptr+)
(or ,hstmt +null-handle-ptr+))
(error
- 'clsql-
base
:clsql-odbc-error
+ 'clsql-
sys
:clsql-odbc-error
:odbc-message error-message
:sql-state sql-state)))
(#.$SQL_NO_DATA_FOUND
:odbc-message error-message
:sql-state sql-state)))
(#.$SQL_NO_DATA_FOUND
@@
-138,7
+138,7
@@
as possible second argument) to the desired representation of date/time/timestam
(or ,hdbc +null-handle-ptr+)
(or ,hstmt +null-handle-ptr+))
(error
(or ,hdbc +null-handle-ptr+)
(or ,hstmt +null-handle-ptr+))
(error
- 'clsql-
base
:clsql-odbc-error
+ 'clsql-
sys
:clsql-odbc-error
:odbc-message error-message
:sql-state sql-state))
#+ignore
:odbc-message error-message
:sql-state sql-state))
#+ignore