X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=142e51631d1f246eb19f8abb1a449d24ec0bd247;hp=77617e7932a23f0cf0fc9daf9d3247e2d0168c31;hb=4953933acb0e3349254ddfe6b1af6cc903cb5ce3;hpb=b956c76026d39e3aaa065e64a100e3ad16d03cd5

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 77617e7..142e516 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -327,13 +327,21 @@
   "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)