X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-common.lisp;fp=parse-common.lisp;h=96f7b8ddef77cd7a026bb5579a4c8efb3dd516ba;hb=24e20cbd6508de4fc712696c08a9d7b5fd23219b;hp=c9adcf740cd7d856a383723af8a99f55922cbf42;hpb=17b2d76a88f0bc4cadc0f100f312587e3b456b10;p=umlisp.git

diff --git a/parse-common.lisp b/parse-common.lisp
index c9adcf7..96f7b8d 100644
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -277,6 +277,12 @@ append a unique number (starting at 2) onto a column name that is repeated in th
 
 (defun canonicalize-column-type (type)
   (cond
+   ((string-equal type "TINYINT")
+    (case *umls-sql-type*
+      (:mysql "TINYINT")
+      ((:postgresql :postgresql-socket) "INT1")
+      (:oracle "NUMBER(3,0)")
+      (t "INTEGER")))
    ((string-equal type "SMALLINT")
     (case *umls-sql-type*
       (:mysql "SMALLINT")
@@ -332,6 +338,9 @@ append a unique number (starting at 2) onto a column name that is repeated in th
     (sql-i (setf (sqltype col)  (canonicalize-column-type "INTEGER")
 		 (parse-fun col) #'parse-integer
 		 (quote-str col) ""))
+    (sql-t (setf (sqltype col)  (canonicalize-column-type "TINYINT")
+		 (parse-fun col) #'parse-integer
+		 (quote-str col) ""))
     (sql-f (setf (sqltype col)  (canonicalize-column-type "NUMERIC")
 		 (parse-fun col) #'read-from-string
 		 (quote-str col) ""))