projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2261: *** empty log message ***
[clsql.git]
/
interfaces
/
oracle
/
oracle-objects.cl
diff --git
a/interfaces/oracle/oracle-objects.cl
b/interfaces/oracle/oracle-objects.cl
index 14ecad233287f5c0718ba563aecd76b1c9a95ede..23f22d7cf48fb759dc8cf5a2f9edf05d783d179b 100644
(file)
--- a/
interfaces/oracle/oracle-objects.cl
+++ b/
interfaces/oracle/oracle-objects.cl
@@
-1,4
+1,4
@@
-(in-package :
mai
sql-oracle)
+(in-package :
cl
sql-oracle)
(defparameter *oracle-default-varchar2-length* "512")
(defparameter *oracle-default-varchar2-length* "512")
@@
-77,13
+77,13
@@
;;; LOCAL-TIME stuff that needs to go into hooks
#+local-time
;;; LOCAL-TIME stuff that needs to go into hooks
#+local-time
-(defmethod
mai
sql-sys::database-get-type-specifier
+(defmethod
cl
sql-sys::database-get-type-specifier
((type (eql 'local-time::local-time)) args (database oracle-database))
(declare (ignore args))
"DATE")
#+local-time
((type (eql 'local-time::local-time)) args (database oracle-database))
(declare (ignore args))
"DATE")
#+local-time
-(defmethod
mai
sql-sys::database-get-type-specifier
+(defmethod
cl
sql-sys::database-get-type-specifier
((type (eql 'local-time::duration))
args
(database oracle-database))
((type (eql 'local-time::duration))
args
(database oracle-database))