-(defmethod database-get-type-specifier
- ((type (eql 'wall-time)) args (database oracle-database))
- (declare (ignore args))
+(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))