-(defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
- (db-type (eql :mysql)))
- (declare (ignore args database))
- "DATETIME")
-
-(defmethod database-get-type-specifier ((type (eql 'smallint)) args database
- (db-type (eql :mysql)))
- (declare (ignore args database))
- "SMALLINT")
-
-(defmethod database-get-type-specifier ((type (eql 'mediumint)) args database
- (db-type (eql :mysql)))
- (declare (ignore args database))
- "MEDIUMINT")
-
-(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database
- (db-type (eql :mysql)))
- (declare (ignore args database))
- "TINYINT")
-
-(defmethod database-output-sql-as-type ((type (eql 'boolean)) val database