r9576: Add generalized-boolean

[clsql.git] / sql / generic-odbc.lisp

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 06338ae605013a9fec962504f8deb7d3f65b7f19..5d82fdd38b81c4e0ed66a07d2a4c3d5d8146c590 100644 (file)
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -52,6 +52,11 @@
                           (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