X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=9bc0e52bbf712d74cb980df895916d053d4d7f8d;hb=refs%2Fheads%2F6.8.0;hp=95ec0eceb32f910dabf5c2cc96d6d6621de38abb;hpb=71c68c68c83c7dce7fb5e6243baa365f28f70ebe;p=clsql.git

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 95ec0ec..9bc0e52 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -245,9 +245,11 @@
 			   result-types field-names)
   (declare (optimize (speed 3)))
   (let ((mysql-ptr (database-mysql-ptr database))
-        (results nil)     ;; all the results and column-names in reverse-order
-        res-ptr (num-fields 0))
-    (declare (type mysql-mysql-ptr-def mysql-ptr res-ptr)
+        (results nil) ;; all the results and column-names in reverse-order
+        (res-ptr nil)
+        (num-fields 0))
+    (declare (type mysql-mysql-ptr-def mysql-ptr)
+             (type (or null mysql-mysql-res-ptr-def) res-ptr)
              (fixnum num-fields))
     (when (database-execute-command query-expression database)
       (labels
@@ -844,3 +846,6 @@
 
 (when (clsql-sys:database-type-library-loaded :mysql)
   (clsql-sys:initialize-database-type :database-type :mysql))
+
+(defmethod clsql-sys::database-escape-backslashes ((database mysql-database))
+  t)