X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=174b35a95f375d43465f20082c57c6ae1d87ba92;hp=499a4ed64a95190896eaafa2cd68e23937a4d851;hb=c4e1422d93b72c1ab1be5c913c48860b1f4e39e2;hpb=d528dfe7e23fe5732fdbf1a282498fbec298d6cd

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 499a4ed..174b35a 100644
--- 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)
@@ -1089,7 +1097,8 @@ as elements of a list."
   (unless (record-caches database)
     (setf (record-caches database)
 	  (make-hash-table :test 'equal
-			   #+allegro :values #+allegro :weak)))
+			   #+allegro :values #+allegro :weak
+                           #+lispworks :weak-kind #+lispworks :value)))
   (setf (gethash (compute-records-cache-key targets qualifiers)
 		 (record-caches database)) results)
   results)