X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-mysql%2Fmysql-objects.lisp;h=0a9e7b324e1c1bd8c46cc1f40dc8d15fdfaf1dd7;hp=b3baf30c79a45dafdaa174f285118fbabde5b1d1;hb=4f756ab532ff033a34597a1c8030379e252952ca;hpb=29e203446b2275fd2353642510cd4b2903d07d1c diff --git a/db-mysql/mysql-objects.lisp b/db-mysql/mysql-objects.lisp index b3baf30..0a9e7b3 100644 --- a/db-mysql/mysql-objects.lisp +++ b/db-mysql/mysql-objects.lisp @@ -23,16 +23,3 @@ (mediumint "MEDIUMINT") (t (call-next-method)))) -(defmethod read-sql-value (val (type (eql 'boolean)) database - (db-type (eql :mysql))) - (declare (ignore database)) - (etypecase val - (string (if (string= "0" val) nil t)) - (integer (if (zerop val) nil t)))) - -(defmethod read-sql-value (val (type (eql 'generalized-boolean)) database - (db-type (eql :mysql))) - (declare (ignore database)) - (etypecase val - (string (if (string= "0" val) nil t)) - (integer (if (zerop val) nil t))))