fixed bug converting to boolean in db-mysql/mysql-sql.lisp - from github user Sectoid

diff --git a/ChangeLog b/ChangeLog
index 5cf44bc3d4c31289bb106d45ce558a05bf647cb6..5aade9e229473fcc3ef952b3676e34feb49dc9e5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2013-09-27 Russ Tyndall <russ@acceleration.net>
+       * 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 <russ@acceleration.net>
         * 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 0038da9cc364bad7a0959984521d5b78fcb446f0..eb965cada4f7a3033dfe5213a90ba46684995899 100644 (file)
--- 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)))