X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fobjects.lisp;fp=sql%2Fobjects.lisp;h=2111b7aa4c6097ca42942e7019721e0d79b1e2fe;hp=b90a6d1b80a8bcaeb91c930e2b266c23dd3050dd;hb=606f6b3eb642523512d12927ff83120b688e8bf9;hpb=3ac9e8d4881eebebe5cfbbf786d5268997046519

diff --git a/sql/objects.lisp b/sql/objects.lisp
index b90a6d1..2111b7a 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -560,8 +560,6 @@ strings."
   (case (database-underlying-type database)
     ((:postgresql :postgresql-socket)
      "TIMESTAMP WITHOUT TIME ZONE")
-    (:mysql
-     "DATETIME")
     (t "TIMESTAMP")))
 
 (defmethod database-get-type-specifier ((type (eql 'duration)) args database)
@@ -637,11 +635,8 @@ strings."
     (prin1-to-string val)))
 
 (defmethod database-output-sql-as-type ((type (eql 'boolean)) val database)
-  (case (database-underlying-type database)
-    (:mysql
-     (if val 1 0))
-    (t
-     (if val "t" "f"))))
+  (declare (ignore database))
+  (if val "t" "f"))
 
 (defmethod database-output-sql-as-type ((type (eql 'string)) val database)
   (declare (ignore database))
@@ -717,10 +712,6 @@ strings."
 
 (defmethod read-sql-value (val (type (eql 'boolean)) database)
   (case (database-underlying-type database)
-    (:mysql
-     (etypecase val
-       (string (if (string= "0" val) nil t))
-       (integer (if (zerop val) nil t))))
     (:postgresql
      (if (eq :odbc (database-type database))
 	 (if (string= "0" val) nil t)