X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-mysql%2Fmysql-sql.lisp;fp=db-mysql%2Fmysql-sql.lisp;h=eb965cada4f7a3033dfe5213a90ba46684995899;hb=2fb4a4ccc311f37b0f5e993976a4d7d4f667f4e3;hp=0038da9cc364bad7a0959984521d5b78fcb446f0;hpb=4f756ab532ff033a34597a1c8030379e252952ca;p=clsql.git

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)))