r9739: 7 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / db-mysql / mysql-objects.lisp

diff --git a/db-mysql/mysql-objects.lisp b/db-mysql/mysql-objects.lisp
index 29013c7a852a882ffa5fd685305c04abb199df8a..5ddad8b5d73817da2aaded534fb153b30e3f10ce 100644 (file)
--- a/db-mysql/mysql-objects.lisp
+++ b/db-mysql/mysql-objects.lisp
@@ -20,6 +20,11 @@
   (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-output-sql-as-type ((type (eql 'boolean)) val database
                                        (db-type (eql :mysql)))
   (declare (ignore database))