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

diff --git a/sql/objects.lisp b/sql/objects.lisp
index fd246c9..2111b7a 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -499,7 +499,7 @@ strings."
 	    (error "No view-table for class ~A"  classname))
 	  (sql-expression :table (view-table class))))
 
-(defmethod database-get-type-specifier (type args database)
+(defmethod database-get-type-specifier (type args (database database))
   (declare (ignore type args))
   (if (in (database-underlying-type database)
 			  :postgresql :postgresql-socket)
@@ -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)