+2013-06-19 Russ Tyndall <russ@acceleration.net>
+ * sql/mysql-objects.lisp
+ Found and refactored a way some more eql specified methods of
+ database-get-type-specifier in mysql
+
2013-06-18 Russ Tyndall <russ@acceleration.net>
* sql/oodml.lisp, sql/mysql-objects.lisp
refactored database-output-sql-as-type in a similar fashion to
(in-package #:clsql-mysql)
-(defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
+(defmethod database-get-type-specifier ((type symbol) 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")
+ (declare (ignore args database db-type))
+ (case type
+ (wall-time "DATETIME")
+ (tinyint "TINYINT")
+ (smallint "SMALLINT")
+ (mediumint "MEDIUMINT")
+ (t (call-next-method))))
(defmethod read-sql-value (val (type (eql 'boolean)) database
(db-type (eql :mysql)))