r9796: * sql/expressions.lisp: reactivate caching of generated SQL

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 499a4ed64a95190896eaafa2cd68e23937a4d851..78fd88648db8ca12cd081605d7d7bcf84d3c5e6c 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -317,6 +317,14 @@
       (format nil "INT(~A)" (car args))
     "INT"))
 
+(deftype tinyint () 
+  "An 8-bit integer, this width may vary by SQL implementation."
+  'integer)
+
+(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database db-type)
+  (declare (ignore args database db-type))
+  "INT")
+
 (deftype smallint () 
   "An integer smaller than a 32-bit integer, this width may vary by SQL implementation."
   'integer)