From 9711a224f9684aaaba08e20eaab826be1beee460 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 3 May 2004 16:05:52 +0000
Subject: [PATCH] r9210: handle odbc/postgresql boolean reading

---
 sql/objects.lisp | 4 ++++
 1 file changed, 4 insertions(+)

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