X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-odbc.lisp;h=5d82fdd38b81c4e0ed66a07d2a4c3d5d8146c590;hp=8601ed624fe019a9a26a7bf243fbb26b7a22e49c;hb=bb71f27c241187a32c7839aea501114d65e29f85;hpb=9242af658c4978cba02cdfde02d5337a04788978

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 8601ed6..5d82fdd 100644
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: $
+;;;; $Id$
 ;;;;
 ;;;; Generic ODBC layer, used by db-odbc and db-aodbc backends
 ;;;;
@@ -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
 
@@ -67,6 +72,7 @@
 	       query-expression :db (odbc-conn database)
 	       :result-types result-types
 	       :column-names field-names)
+    #+ignore
     (error ()
       (error 'sql-database-data-error
 	     :database database
@@ -178,8 +184,6 @@
     (loop for row in rows
 	collect (fourth row))))
 
-
-
 (defmethod database-attribute-type ((attribute string) (table string) (database generic-odbc-database)
 				    &key (owner nil))
   (declare (ignore owner))