-(defmethod database-get-type-specifier
- ((type (eql 'duration))
- args
- (database oracle-database))
- (declare (ignore args))
+(defmethod database-get-type-specifier ((type (eql 'duration)) args
+ database (db-type (eql :oracle)))
+ (declare (ignore args database))