X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-odbc.lisp;fp=sql%2Fgeneric-odbc.lisp;h=bd4d01cda033156bd6c0ff4aa0e6346cfca2a819;hp=766606035a3c2cc2f64e6e5d3f194becce3ff28e;hb=ac8069e4f04d9c4faa41664cb8ee1ec83df0e67f;hpb=8f46e0fa45fc54bccceb5a0e86f596dd8e480853

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 7666060..bd4d01c 100644
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -77,6 +77,11 @@
   (declare (ignore args database))
   "DATETIME")
 
+(defmethod database-get-type-specifier ((type (eql 'date)) args database
+                                        (db-type (eql :mssql)))
+  (declare (ignore args database))
+  "SMALLDATETIME")
+
 (defmethod database-get-type-specifier ((type (eql 'boolean)) args database
                                         (db-type (eql :mssql)))
   (declare (ignore args database))