X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgeneric-odbc.lisp;h=e4c37529f2e07a32778f46fe01b3ffa0d1c0e331;hb=85ec9eefa107bb000198c381ffba15c8f4bb086b;hp=9699d292cb3ef0bca895fbe3e7402078c0e09dd8;hpb=73f6c23a39a24d04746b00d8fe3878ca7a6233f1;p=clsql.git

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 9699d29..e4c3752 100644
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -1,8 +1,6 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; Generic ODBC layer, used by db-odbc and db-aodbc backends
 ;;;;
 ;;;; This file is part of CLSQL.
@@ -78,6 +76,10 @@
                                         (db-type (eql :mssql)))
   (declare (ignore args database))
   "DATETIME")
+(defmethod database-get-type-specifier ((type (eql 'date)) args database
+                                        (db-type (eql :mssql)))
+  (declare (ignore args database))
+  "DATETIME")
 
 (defmethod database-get-type-specifier ((type (eql 'boolean)) args database
                                         (db-type (eql :mssql)))