(slot-value db 'list-all-table-columns-fn)
(intern (symbol-name '#:list-all-table-columns) pkg))))
-;;; Object methods
-
-(defmethod read-sql-value (val (type (eql 'boolean))
- (database generic-odbc-database)
- (db-type (eql :postgresql)))
- (if (string= "0" val) nil t))
-
-(defmethod read-sql-value (val (type (eql 'generalized-boolean))
- (database generic-odbc-database)
- (db-type (eql :postgresql)))
- (if (string= "0" val) nil t))
-
-(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 symbol) args 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)))