-(defmethod database-get-type-specifier ((type (eql 'wall-time)) args (database mysql-database))
- (declare (ignore args))
+(defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
+ (db-type (eql :mysql)))
+ (declare (ignore args database))