(defmethod initialize-instance :after ((db generic-odbc-database)
&rest all-keys)
+ (declare (ignore all-keys))
(unless (slot-boundp db 'dbi-package)
(error "dbi-package not specified."))
(let ((pkg (slot-value db 'dbi-package)))
(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