r10074: Add mediumint

diff --git a/ChangeLog b/ChangeLog
index 3991ab8293d69af60cc670846b9e0b2b7316d46a..155843ecaab3a5d784978d6a2c45a6ffc0d3e4b7 100644 (file)
--- 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 ddd6af22452656810c5365a417148f8e7e82c3c6..64c844ed8894abfcb4191d5db8d570672e02e8f1 100644 (file)
--- 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 77617e7932a23f0cf0fc9daf9d3247e2d0168c31..142e51631d1f246eb19f8abb1a449d24ec0bd247 100644 (file)
--- 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 8351ef3e147a2dd25c5d6da1aad02bbd983ab853..5a640b60eb1ee64f4c17dd439223b4bd590f49c2 100644 (file)
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -352,6 +352,7 @@
         #:bigint
         #:varchar
         #:generalized-boolean
+        #:mediumint
         #:smallint
         #:tinyint
         #:*default-string-length*