;;;; -*- 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.
(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))