-;;; LOCAL-TIME stuff that needs to go into hooks
-#+local-time
-(defmethod clsql::database-get-type-specifier
- ((type (eql 'local-time::local-time)) args (database oracle-database))
+(defmethod read-sql-value (val (type (eql 'boolean)) (database oracle-database))
+ (when (char-equal #\t (schar val 0))
+ t))
+
+(defmethod database-get-type-specifier
+ ((type (eql 'wall-time)) args (database oracle-database))