+(defmethod read-sql-value (val (type (eql 'boolean)) database
+ (db-type (eql :mssql)))
+ (declare (ignore database))
+ (etypecase val
+ (string (if (string= "0" val) nil t))
+ (integer (if (zerop val) nil t))))
+
+(defmethod read-sql-value (val (type (eql 'generalized-boolean)) database
+ (db-type (eql :mssql)))
+ (declare (ignore database))
+ (etypecase val
+ (string (if (string= "0" val) nil t))
+ (integer (if (zerop val) nil t))))
+
+;;; Type methods
+
+(defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
+ (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))
+ "SMALLDATETIME")
+
+(defmethod database-get-type-specifier ((type (eql 'boolean)) args database
+ (db-type (eql :mssql)))
+ (declare (ignore args database))
+ "BIT")
+
+(defmethod database-get-type-specifier ((type (eql 'generalized-boolean)) args database
+ (db-type (eql :mssql)))
+ (declare (ignore args database))
+ "BIT")
+
+;;; Generation of SQL strings from lisp expressions
+
+(defmethod database-output-sql ((tee (eql t)) (database generic-odbc-database))
+ (case (database-underlying-type database)
+ (:mssql "1")
+ (t "'Y'")))
+
+(defmethod database-output-sql-as-type ((type (eql 'boolean)) val database
+ (db-type (eql :mssql)))
+ (declare (ignore database))
+ (if val 1 0))
+
+(defmethod database-output-sql-as-type ((type (eql 'generalized-boolean)) val database
+ (db-type (eql :mssql)))
+ (declare (ignore database))
+ (if val 1 0))
+
+;;; Database backend capabilities
+
+(defmethod db-type-use-fully-qualified-column-on-drop-index? ((db-type (eql :mssql)))
+ t)
+
+(defmethod db-type-has-boolean-where? ((db-type (eql :mssql)))
+ nil)
+
+(defmethod db-type-has-intersect? ((db-type (eql :mssql)))
+ nil)
+
+(defmethod db-type-has-except? ((db-type (eql :mssql)))
+ nil)
+