From 2fb4a4ccc311f37b0f5e993976a4d7d4f667f4e3 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Fri, 27 Sep 2013 13:52:34 -0400 Subject: [PATCH] fixed bug converting to boolean in db-mysql/mysql-sql.lisp - from github user Sectoid --- ChangeLog | 4 ++++ db-mysql/mysql-sql.lisp | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5cf44bc..5aade9e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2013-09-27 Russ Tyndall + * fixed bug converting to boolean in db-mysql/mysql-sql.lisp + from github user Sectoid https://github.com/UnwashedMeme/clsql/pull/1 + 2013-06-19 Russ Tyndall * sql/oodml.lisp, db-postgresql-socket3/sql.lisp, db-mysql/mysql-objects.lisp, sql/generic-odbc.lisp diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp index 0038da9..eb965ca 100644 --- a/db-mysql/mysql-sql.lisp +++ b/db-mysql/mysql-sql.lisp @@ -159,9 +159,9 @@ (:boolean-ptr (uffi:with-foreign-object (fo :byte) (setf (uffi:deref-pointer fo :byte) - (if (or (zerop value) (null value)) - 0 - 1)) + (case value + ((nil 0) 0) + (t 1))) (mysql-options mysql-ptr option-code fo))))))))))) (defmethod database-connect (connection-spec (database-type (eql :mysql))) -- 2.34.1