+(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 read-sql-value (val (type (eql 'boolean)) database
+ (db-type (eql :mysql)))
+ (declare (ignore database))
+ (etypecase val
+ (string (if (string= "0" val) nil t))
+ (integer (if (zerop val) nil t))))