X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-oracle%2Foracle-objects.lisp;h=a5583ee4ea6c142dfa318541add6833af6f3973b;hb=d4bb1303dea9ba6734b86abc34e904edb3e36f6f;hp=9cebea18adec007e6c454604d7ffc36fa9e8a773;hpb=e7a214b2445830219022acb5911a3f9303d938bd;p=clsql.git

diff --git a/db-oracle/oracle-objects.lisp b/db-oracle/oracle-objects.lisp
index 9cebea1..a5583ee 100644
--- a/db-oracle/oracle-objects.lisp
+++ b/db-oracle/oracle-objects.lisp
@@ -29,11 +29,13 @@
 
 (defmethod database-get-type-specifier ((type (eql 'bigint)) args
 					database (db-type (eql :oracle)))
-  (declare (ignore database)) 
-  (if args
-      (format nil "NUMBER(~A,~A)"
-	      (or (first args) 38) (or (second args) 0))
-    "NUMBER(38,0)"))
+  (declare (ignore args database)) 
+  "CHAR(20)")
+
+(defmethod database-get-type-specifier ((type (eql 'universal-time)) args
+					database (db-type (eql :oracle)))
+  (declare (ignore args database)) 
+  "CHAR(20)")
 
 (defmethod database-get-type-specifier ((type (eql 'string)) args
 					database (db-type (eql :oracle)))
@@ -95,6 +97,17 @@
   (when (char-equal #\t (schar val 0))
     t))
 
+(defmethod read-sql-value (val (type (eql 'bigint))
+			   database (db-type (eql :oracle)))
+  (declare (ignore database))
+  (parse-integer val))
+
+(defmethod read-sql-value (val (type (eql 'universal-time))
+			   database (db-type (eql :oracle)))
+  (declare (ignore database))
+  (parse-integer val))
+
+
 (defmethod database-get-type-specifier ((type (eql 'wall-time)) args
 					database (db-type (eql :oracle)))
   (declare (ignore args database))