r8873: better generic function

[clsql.git] / db-mysql / mysql-sql.lisp

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index b8e394c0eaea9e676ca5c1487a61a1cfb5ca84f5..c33456c6050fdc33f716b134aaef30c2ecef43ff 100644 (file)
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -225,7 +225,7 @@
   (full-set nil :type boolean))
 
 
-(defmethod database-query-result-set (query-expression 
+(defmethod database-query-result-set ((query-expression string)
                                      (database mysql-database)
                                      &key full-set types)
   (uffi:with-cstring (query-native query-expression)