From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 1 Oct 2004 09:19:18 +0000 (+0000)
Subject: r10074: Add mediumint
X-Git-Tag: v3.8.6~227
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=4953933acb0e3349254ddfe6b1af6cc903cb5ce3;hp=b956c76026d39e3aaa065e64a100e3ad16d03cd5

r10074: Add mediumint
---

diff --git a/ChangeLog b/ChangeLog
index 3991ab8..155843e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/db-mysql/mysql-objects.lisp b/db-mysql/mysql-objects.lisp
index ddd6af2..64c844e 100644
--- a/db-mysql/mysql-objects.lisp
+++ b/db-mysql/mysql-objects.lisp
@@ -25,6 +25,11 @@
   (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))
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)
diff --git a/sql/package.lisp b/sql/package.lisp
index 8351ef3..5a640b6 100644
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -352,6 +352,7 @@
 	 #:bigint
 	 #:varchar
 	 #:generalized-boolean
+	 #:mediumint
 	 #:smallint
 	 #:tinyint
 	 #:*default-string-length*