r9210: handle odbc/postgresql boolean reading

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 0232917ff4662b7ca80ae62d79b75b86cfd4c08d..9598ea643d3172bf8acdd209be7fd443e42b52a6 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -664,6 +664,10 @@ superclass of the newly-defined View Class."
      (etypecase val
        (string (if (string= "0" val) nil t))
        (integer (if (zerop val) nil t))))
+    (:postgresql
+     (if (database-type :odbc)
+        (if (string= "0" val) nil t)
+        (equal "t" val)))
     (t
      (equal "t" val))))