+01 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * sql/oodml.lisp, sql/package.lisp, db-mysql/mysql-objects.lisp:
+ Add support for mediumint.
+
28 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
* sql/metaclass.lisp: Support CLISP's attribute name
for the type field in direct class slots
(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))
"INT")
(deftype smallint ()
- "An integer smaller than a 32-bit integer, this width may vary by SQL implementation."
+ "An integer smaller than a 32-bit integer. this width may vary by SQL implementation."
'integer)
(defmethod database-get-type-specifier ((type (eql 'smallint)) args database db-type)
(declare (ignore args database db-type))
"INT")
+(deftype mediumint ()
+ "An integer smaller than a 32-bit integer, but may be larger than a smallint. This width may vary by SQL implementation."
+ 'integer)
+
+(defmethod database-get-type-specifier ((type (eql 'mediumint)) args database db-type)
+ (declare (ignore args database db-type))
+ "INT")
+
(deftype bigint ()
"An integer larger than a 32-bit integer, this width may vary by SQL implementation."
'integer)
#:bigint
#:varchar
#:generalized-boolean
+ #:mediumint
#:smallint
#:tinyint
#:*default-string-length*