X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=bfb33c1550768270a87533a60350e66d58fc5d65;hp=7f0ad1f82ff601a6556a8d45080fcb481494ba27;hb=f97c6c182c9746cd6adbdacf8cdfebbaadef3c37;hpb=c4e1422d93b72c1ab1be5c913c48860b1f4e39e2

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 7f0ad1f..bfb33c1 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -850,7 +850,11 @@ uninclusive, and the args from that keyword to the end."
                         (setf (aref buf j) #\')
                         (incf j)
                         (setf (aref buf j) #\'))
-                       ((char= char #\\)
+                       ((and (char= char #\\)
+                             ;; MTP: only escape backslash with pgsql/mysql 
+                             (member (database-underlying-type database) 
+                                     '(:postgresql :mysql)
+                                     :test #'eq))
                         (setf (aref buf j) #\\)
                         (incf j)
                         (setf (aref buf j) #\\))