X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-dbi.lisp;fp=db-odbc%2Fodbc-dbi.lisp;h=a07a5ee5e7cf6bf8353f4d68d4e15a5176f3ab85;hb=44452a3f9f128b5deb54b4dfe7249583eb4e090d;hp=fb33f521bb63b3f0d6e279ec5ed8c10a26d24ed5;hpb=74c587c89f1402fbfe22197f2143181dbd94ebef;p=clsql.git

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index fb33f52..a07a5ee 100644
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -459,6 +459,7 @@ This makes the functions db-execute-command and db-query thread safe."
           (if (eq (aref column-sql-types i) odbc::$SQL_BIGINT)
               :number
             (case (aref column-c-types i)
+              (#.odbc::$SQL_BIT :short)
               (#.odbc::$SQL_C_SLONG :int)
               (#.odbc::$SQL_C_DOUBLE :double)
               (#.odbc::$SQL_C_FLOAT :float)
@@ -573,6 +574,7 @@ This makes the functions db-execute-command and db-query thread safe."
     ;;((#.odbc::$SQL_BINARY #.odbc::$SQL_VARBINARY #.odbc::$SQL_LONGVARBINARY) odbc::$SQL_C_BINARY) ; ??
     (#.odbc::$SQL_TINYINT :short)
     ;;(#.odbc::$SQL_BIT odbc::$SQL_C_BIT) ; ??
+    (#.odbc::$SQL_BIT :short)
     ((#.odbc::$SQL_VARBINARY #.odbc::$SQL_LONGVARBINARY) :binary)
     ))