projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
requiring ownership isn't integral and causes it to fail
[clsql.git]
/
sql
/
generic-odbc.lisp
diff --git
a/sql/generic-odbc.lisp
b/sql/generic-odbc.lisp
index 9699d292cb3ef0bca895fbe3e7402078c0e09dd8..bd4d01cda033156bd6c0ff4aa0e6346cfca2a819 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.
@@
-79,6
+77,11
@@
(declare (ignore args database))
"DATETIME")
(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))
(defmethod database-get-type-specifier ((type (eql 'boolean)) args database
(db-type (eql :mssql)))
(declare (ignore args database))