From 5a68e4bd377de1be0a52c35f7c5db1ddaa51bdb3 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Tue, 6 Oct 2009 14:02:10 -0400 Subject: [PATCH] made booleans work correctly for objects in postgresql-socket3 --- db-postgresql-socket3/sql.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp index 6fdef8e..ad24ee6 100644 --- a/db-postgresql-socket3/sql.lisp +++ b/db-postgresql-socket3/sql.lisp @@ -273,3 +273,14 @@ (when (clsql-sys:database-type-library-loaded :postgresql-socket3) (clsql-sys:initialize-database-type :database-type :postgresql-socket3)) + + +;; Type munging functions + +(defmethod read-sql-value (val (type (eql 'boolean)) (database postgresql-socket3-database) db-type) + (declare (ignore database db-type)) + val) + +(defmethod read-sql-value (val (type (eql 'generalized-boolean)) (database postgresql-socket3-database) db-type) + (declare (ignore database db-type)) + val) \ No newline at end of file -- 2.34.1