From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 3 May 2004 16:05:52 +0000 (+0000)
Subject: r9210: handle odbc/postgresql boolean reading
X-Git-Tag: v3.8.6~545
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=9711a224f9684aaaba08e20eaab826be1beee460

r9210: handle odbc/postgresql boolean reading
---

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))))