projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
On MSSQL < 2008 there is no timestamp (the default type for 'date), we use datetime...
[clsql.git]
/
sql
/
generic-odbc.lisp
diff --git
a/sql/generic-odbc.lisp
b/sql/generic-odbc.lisp
index 9699d292cb3ef0bca895fbe3e7402078c0e09dd8..e4c37529f2e07a32778f46fe01b3ffa0d1c0e331 100644
(file)
--- a/
sql/generic-odbc.lisp
+++ b/
sql/generic-odbc.lisp
@@
-1,8
+1,6
@@
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
;;;; -*- 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.
;;;; 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")
(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)))
(defmethod database-get-type-specifier ((type (eql 'boolean)) args database
(db-type (eql :mssql)))