projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9826: * sql/expressions.lisp: conditionalise escaping of backslash in
[clsql.git]
/
sql
/
generic-odbc.lisp
diff --git
a/sql/generic-odbc.lisp
b/sql/generic-odbc.lisp
index d22255070c7d2c6504a860c695cbc63d4c2db1d9..5d82fdd38b81c4e0ed66a07d2a4c3d5d8146c590 100644
(file)
--- a/
sql/generic-odbc.lisp
+++ b/
sql/generic-odbc.lisp
@@
-52,6
+52,11
@@
(db-type (eql :postgresql)))
(if (string= "0" val) nil t))
(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
;;; Backend methods
@@
-67,6
+72,7
@@
query-expression :db (odbc-conn database)
:result-types result-types
:column-names field-names)
query-expression :db (odbc-conn database)
:result-types result-types
:column-names field-names)
+ #+ignore
(error ()
(error 'sql-database-data-error
:database database
(error ()
(error 'sql-database-data-error
:database database