X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fobjects.lisp;h=9598ea643d3172bf8acdd209be7fd443e42b52a6;hp=0232917ff4662b7ca80ae62d79b75b86cfd4c08d;hb=9711a224f9684aaaba08e20eaab826be1beee460;hpb=f69c5bfba59d54628f9a08b83413ec3df3c92432

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 0232917..9598ea6 100644
--- 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))))