(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))
+
;;; Backend methods
query-expression :db (odbc-conn database)
:result-types result-types
:column-names field-names)
+ #+ignore
(error ()
(error 'sql-database-data-error
:database database
(loop for row in rows
collect (fourth row))))
-
-
(defmethod database-attribute-type ((attribute string) (table string) (database generic-odbc-database)
&key (owner nil))
(declare (ignore owner))